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4054-Based System 

Eases Control Panel Design 



by Terry Davis 
TEKniques Staff 

"One picture is worth more than ten 
thousand words," says the old proverb. 
And nowhere is this more true than in 
the communication of technical informa- 
tion. This is the driving force behind the 
growth of computer graphics. It is also 
the heart of an interesting application in 
the pictures^que lakeshore town of Escan- 
aba, Michigan. 

There, at Interactive Graphic Controls 
Company, desktop computer graphics 
are being used to generate color graphic 
display or control panels and highly de- 
tailed training materials for use in com- 
plex process control environments. A 
TEKTRONIX 4054 Graphic Computing 
System with Dynamic Graphics is con- 
nected to four peripherals — a TEK- 
TRONIX 4907 File Manager (three 
disks), a backlit Talos Graphic Tablet, a 
CalComp 1051 36" four-pen Drum Plot- 
ter, and an NEC Spin writer for printout. 

The system is primarily used to prepare 
master drawings for the graphic panels 
and training materials. An added benefit 
is found in processing office work with the 
text processing capabilities of the Editor 
ROM Pack, and software developed for 
such things as accounting and invoicing. 
Then he put the system to work performing 
Computer- Aided Design, with a slant to 
instantaneous communication. 

Richard Growden, a registered P.E. in 
Michigan with 21 years of engineering 
and production management experience 
in the paper industry, started the busi- 
ness 8 years ago as a consulting engi- 
neering firm. "Actually," Dick says 
"much more interest developed in the 
Graphic Panels and training materials (ie: 
slides, overheads, drawings, and full co- 
lor printed matter) than in small engi- 
neering projects. The Graphic Panels and 
the training materials are highly special- 
ized products that can be much more 
efficiently produced by a small company 
than by the large engineering firms uti- 
lized on major projects. These products 
are complimentary to each other in that 
either one may be produced by using the 
other as a guide. And when both types 



are ordered on a project, there is added 
economic value." 

The business was renamed INTERAC- 
TIVE GRAPHIC CONTROLS to better 
describe the products and services being 
offered. The decision to install a compu- 
ter graphics system to increase 
productivity and shorten delivery times 
was made when a self-contained, high re- 
solution, graphic computer system that 
could support other types of equipment 
needed to produce the drawings required 
became economically available for small 
businesses. 

The graphic display panels are color-cod- 
ed, illuminated representations of pro- 
cess control systems (Fig. 1). They are 




Fig. 1 . At Mead Paper Co. in Escanaba, ML, the 
Bark Boiler panel is 36" x 42" . It displays 38 
pilot lights and 10 meters, in addition to 3 push- 
buttons, 6 selector switches, and 6 rheostats. 

playing important parts in the operation 
of large process plants, such as the paper 
mills that Dick Growdon knows so well. 
But the same panel principles are valu- 
able in any process control operation, 
from paper mills to nuclear or coal-fired 
power plants. The idea is to create easy- 
to-read panels that are graphic represen- 
tations of major systems in the plant — 
processing fluids, for instance. The color 
coding separates different fluids, or sys- 
tem process lines, for quick identification 
and ease of following a line or process. 



Panel Design 

The heart of the design system is the 
4054. Its high-resolution 19" display al- 
lows precise screen previewing of the 
graphic panel layouts. The display, and 
the local processing, enables a detailed 
graphic representation of panel layouts, 
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so they can be perfected on the screen 
before plotting and production. 

The creation process is a reversal of usu- 
al Computer-Aided Drafting (CAD) tech- 
niques. Where CAD typically generates 
finished working drawings, Dick 
Growdon starts with the working draw- 
ings for the plant that he's designing pan- 
els for. Copies of the plant construction 
drawings and instrumentation drawings 
are used as input to the panel design pro- 
cess. By digitizing the working drawings 
into the system, the finished panels be- 
come representations of the actual pro- 
cess system. This greatly improves 
understanding of the control panel when 
compared to rows of instruments and 
alarm areas with lots of lighted message 
boxes. 

Lines of varying width can be created, in 
proportion to the Hue's importance to the 
system, or its carrying capacity (actual 
pipe size). Multiple fluid Hues are color 
coded for easy separation; hidden line 
crossovers are used (Fig. 2). Standard 



The top layer is a hard, scratch-resistant 
plastic, while the backing layer is of 
flame-resistant polycarbonate Fig. 3). 



can be mounted directly on the panels, 
next to the indicator light that signals a 
problem in the area monitored by the 
gauge. (See Fig. 5.) 




Fig. 2. Plots from the CalComp 1051 serve as art- 
work masters for the graphic panels. 

components can be selected from a disk- 
based file of pumps, valves, and switch- 
es, and positioned in the drawing as de- 
sired. Special parts representations can 
be easily created. 

Once input, the graphic layout can be 
adjusted on the 4054 display if necessary 
before it is plotted on the Calcomp 1051 
Plotter. The output of the plotter is a 
very high resolution black and white po- 
sitive drawing of the control panel dis- 
play. This then becomes the master art- 
work for a photographic reproduction 
process. Photographed and reproduced 
as a 7 mil film negative, the heart of the 
final product is almost complete. Keyed 
color films are added to the back of the 
negative, and the colored print is sand- 
wiched between two layers of plastic. 




Fig. 3. This panel is in the pulp mill digester house 
at Great Southern Paper Co. in Cedar Springs, GA. 
It is 19" X 43" , not including the crt display, and 
contains 342 lights. 

The panel is completed by framing and 
adding lights. (Framing is often made to 
fit into the plant control consoles.) The 
end result in a process control plant is a 
set of color-keyed panels that represent 
the systems monitored by the plant con- 
trol console (Fig. 4). They are very useful 




Fig. 4. At the Mead paperboard plant in Stevenson, 
ALA., the power and recovery room houses seven 
panels for a total length of 45 feet. These are static 
back-lighted displays. 

during new employee orientation, as a 
refresher for vacation replacements in an 
area, or when promotions move people to 
new jobs. Some installations use simpli- 
fied graphics to give visitors an easy-to- 
understand overview of a plant's entire 
operation. 

Indicator lights are routinely added to 
the panels, for quick identification of a 
problem in the plant. When a panel Hght 
comes on, it's immediately next to the 
sensed problem area on the panel. And 
the panel represents, to approximate 
scale if possible, the actual plant layout, 
making location of the actual problem a 
snap. 

Besides normal back illumination, and 
the installation of status indicator lights 
for control room panels, displays can be 
set up for special functions as well. Indi- 
cator lights can be complemented with 
switches or emergency controls, for in- 
stance. Or gauges for detailed readout 



Fig. 5. At a Mead Paper Co. bleach plant, this 
19" X 38" panel houses 17 meters and 17 push- 
buttons, built into the illuminated graphic panel. 

With panels like these, the location of a 
problem in the plant systems can be pin- 
pointed almost as quickly as it occurs. 
No grids or messages to read and decode 
to find a physical location. "The map- 
like layout is the key to understanding," 
says Growdon. "Messages and grids 
take time to decode, and time is precious 
in a problem situation." 

Similar panels can be created by manual 
means, drawn on a drafting table and fin- 
ished with tape and press-down symbols. 
But there are a number of reasons for 
choosing the 4054-based system; certain- 
ly speed, simplicity, and ease of use are 
high on the Hst. Consistent representa- 
on of parts is another reason, as the 
omputer always generates the same 
rawing of a part. Yet the system is ver- 
satile enough to allow special parts de- 
sign as needed. But perhaps the top rea- 
son is productivity. Interactive Graphic 
Controls is now able to accept very large 
jobs due to reduced lead times in meet- 
ing deHveries. This factor is important 
since final drawings are often unavailable 
until shortly before training programs are 
starting or production facilities begin. 
With the 4054, it is possible to do all of 
the design and office work with only one 
person, Dick Growdon, before calling for 
outside help to assemble panels. 
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4051 Graphics Play Inter gral Part in 
Health Services Research and Planning 



^\ 




At West Virginia University Bill Detweiler (left) and Ed Bosanac (right) have instituted computer graph- 
ics to aid in health systems planning and development. 



by Edward M. Bosanac, 

Dr. PH 
and William Detweiler, 

Research Assistant 

School of Medicine 

Department of Community 

Medicine 

West Virginia University 

Morgantown, W.V. 

The Office of Health Services Research 
(OHSR) provides health systems plan- 
ning and data systems development. It is 
part of the Department of Community 
Medicine at West Virginia University in 
Morgantown. Although part of the Uni- 
versity, we function very much like a 
public consulting firm. 

For instance, the State of West Virginia 
has a hiring freeze. By contracting with 
OHSR, they may maintain control of a 
substantial part of the work without hav- 
ing the fiscal exposure of permanent 
staff. Many state agencies are not geared 
toward new development. While expert 
at maintaining and operating programs, 
new development is not one of their pur- 
suits. Thus, they will contract with 



OHSR. And since OHSR is in the uni- 
versity setting, we have access to profes- 
sionals, large systems, general planning 
methods and software development that 
would be outside of the individual agen- 
cy's realm. 

OHSR staff consists of two assistant pro- 
fessors, four other professional staff and 
five technicians. In the course of our 
work for others, we are at the same time 
committed to improving the statistical, 
analytical, and information processing 
capabilities of our health care research- 
ers and planners. One of these areas is 
the way data is represented. 

Computer Graphics Bypass Illustration 
Problems 

It is OHSR's belief that graphic illustra- 
tions are an effective and often essential 
complement to tabular displays or verbal 
discussions of data. Charts and graphs 
provide the reader with "a point of 
view" that may have otherwise been dif- 
ficult to obtain. These aids spare the 
reader the effort of mentally visualizing 
the data. In addition, maps of various 
kinds reveal the geographic distributions 
of resources and events. There is no sub- 



stitute for a well designed map when 
conveying to the reader the idea of spa- 
tial trends. 

Several adjectives characterize the value 
of graphic displays: 

RAPID — trends in the data may be re- 
cognized at a glance; 
FORCEFUL — they provide more em- 
phasis than text or tables; 
CONVINCING — specific points of 
interest may be clearly demonstrated; 
REVEALING — relationships that may 
have otherwise gone unnoticed may be 
discovered; and 

ATTRACTIVE — they offer a visual 
change of pace to text and tables. 

Although graphics help those who pub- 
lish data understand and communicate 
their findings more effectively, the me- 
chanics of producing and revising an illu- 
stration is time consuming. Also, carto- 
graphic design requires specialized l 
technical and statistical skills that may 
not be available to certain organizations. 
The staff at OHSR views computer 
graphics as a means of bypassing many 
of these problems. This is why an invest- 
ment has been made in developing a sys- 
tem for producing charts, graphs, and 
maps. 

Although development of the system 
continues, it is fully operational and is 
used on a daily basis. The system's de- 
sign and operation enables any of the 
professional and clerical staff to produce 
a graphic display in just a few minutes. 

The office's graphic system operates on 
several different computers. That is, the 
computational and graphics workloads 
are distributed among large mainframe 
computers and OHSR's Tektronix 4051 
desktop graphic system. This configura- 
tion allows for interactive processing on 
both the mainframes and the 4051, batch 
submission of jobs on the large systems, 
and transfer of data between any of the 
machines. The use of more than one 
computer offers the user a wider range 
of programming options. When heavy 
computational power is required, the 
task is delegated to the mainframe. On 
the other hand the 4051 is used for lesser 
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tasks, eliminating the constraints of job 
management and downtime associated 
with the large system. 

The 4051 desktop computer system per- 
forms data analysis and graphic manipu- 
lations on a stand-alone basis within the 
office. Moreover, because it's equipped 
with the RS-232 communications option, 
the 4051 serves as an intelligent terminal 
sharing data with the host computer. 

One of the system's most essential peri- 
pherals is the 4662 Digital Plotter. The 
Plotter is not only able to accept com- 
mands from the 4051, but also from a 
host computer at another location. When 
operating in this manner there is no de- 
lay in having mainframe-generated graph- 
ics in hand since plots are not bound for 
output at the distant facility. In addition 
to the 4662' s plotting capabilities, it is al- 
so used to digitize maps or drawings 
under the control of the 4051 or another 
computer. 

We also have a 4907 File Manager with 
three flexible disk drives, and a Hard 
Copy Unit. 

Various CRT and hard copy terminals 
are used at OHSR for submission of jobs 
to the host site. However, office person- 
nel mostly favor our Tektronix 4025 for 
this task. Its capabilities for graphic dis- 
play, text editing, and internal storage of 
information, and text editing make time 
online more productive. 

OHSR is an affiliate of the West Virginia 
Network for Educational Telecomputing 
(WVNET). Through this organization ac- 
cess is provided to an ITEL AS/5 and an 
AMDAHL 470 V7/A. A ZETA drum 
plotter is available at the host site for 
large multicolor plots. 

However OHSR has emphasized the 
stand-alone system, i.e., the 4051, in or- 
der that final form plots may be pro- 
duced in a matter of minutes. It takes at 
least a working day to get a plot from 
the host site. The 4051 has the additional 
advantage of minimizing production 
costs. The current plotting charge by the 
network is ^50 per hour. 

The 4051 software library includes pro- 
grams which we develop for the 
production of maps and special purpose 
graphs — such as population pyramids. 
We also rely on a multitude of programs 
obtained from the Applications Library. 
Our analytical library includes PLOT 50 
Mathematics Library, PLOT 50 Statistics 
Library, PLOT 50 Business Planning and 
Analysis Vol. 1, PLOT 50 Graph Plot, 



data base management and summariza- 
tion of large files. The output is often 
downloaded to the 4051 for charts and 
graphs. 

POLYVERT, Harvard's Polygon 
Converter Program is the backbone of all 
of OHSR' s geographic base files. This 
system allows us to input any file, such 
as the DIMECO, the CIA's World Data 
Bank of Countries, or user prepared geo- 
graphic boundary files. These files are 
restructured to a format more suitable 
for plotting and POLYVRT also handles 
the filtering of detail. For instance, we 
can pull off the West Virginia portion of 
DIMECO and generalize the detail level 
of the file, reducing the number of points 
in the polygon so computations aren't so 
monumental. 

We bring census and vital records data 
in from the host to the 4051 in tape com- 
munications mode, then ship it to the 
disk. To classify the data for mapping we 
took a class intervals program from one 
of the geography journals and adapted it 
for the 4051. Using this program we can 
group data by equal frequencies, or 
equal steps, geometric and arithmetic 
mean, nested mean and so on. 



and the newest PLOT 50 Statistics Disk- 
based Tests and Distributions. 

The large system software consists of an 
extensive library maintained by 
WVNET. OHSR relies on these pro- 
grams when specialized processing is re- 
quired on large amounts of data. How- 
ever some of these programs have been 
generalized and run on the 4051. 

Computer Cartography Major Focus 

Computer cartography, both on the 4051 
and the larger systems, has been our 
major focus. We have several geographic 
base data files: 

DIMECO — Dual Independent Map En- 
coding (county). This file was created by 
the U.S. Bureau of the Census and con- 
tains the boundary information for West 
Virginia's 55 counties. 

MCD — Minor Civil Divisions. These 
are the largest subcounty administrative 
units used by the Bureau of the Census 
for a variety of tabulations. These are of- 
ten townships or magisterial districts. 
There are 353 MCDs in West Virginia. 

STAM — Statewide Traffic Assignment 
Model. The 781 statewide traffic zones in 
West Virginia are represented in this file. 
The zonal system was created by the 
State Department of Highways. Each 
zone is a functional unit based on exist- 
ing traffic patterns, travel time, popula- 
tion, and natural boundaries. 

HSR — Health Service Regions. The 37 
health service regions in West Virginia 
were delineated by OHSR as part of a 
study of health care delivery patterns in 
the State. 

TRAVEL TIME — This file is under de- 
velopment. It will allow travel time iso- 
chrons to be drawn about any location in 
West Virginia. 

Two other files are currently under de- 
velopment: GBF/DIME — Standard 
Metropolitan Statistical Area DIME files, 
and ENUMERATION DISTRICT CEN- 
TROIDS. 

The entire staff is versed in the use of 
OBS-WYLBUR and SAS. WYLBUR is 
a comprehensive system for manipulating 
text and for remote entry and retrieval of 
computer jobs. We enter our data on the 
4051 and save it on the 4907 disk. At an 
opportune time we feed the data to 
WYLBUR and store it on the host disk. 

SAS (acronym for the Statistical Analy- 
sis System and distributed and main- Fig.l.(a) A sorting program classifies data by 
tained by the SAS Institute) is used for equal fi-equencies 



whhT is your cho 


ICE OF CLASSIFICATION METHODv 


ho^g NhNY classes 


DO YOU i^ISH TO HAUE? 


THE CLASS BREAKS 


ARE: 


14.3 
16 




COHPILhTIOH of CLASS FREQUENCIES: 


CLASS 
1 
2 
3 


FREQUENCY 
19 
18 
18 


CGMPUTATIOH OF D 


UhLUES: 


CLASS 
1 

3 


D UALUE 
5.82203296904 
2.69512822842 
9.11045676879 


TOTAL D UALUE: 


17.6276179663 



Tekniques 
Vol. 5 No. 2 



DO YOU WISH TO HAKE ANOTHER RUN OF THIS PROGRAh^ 

YES 

DO YOU WANT TO USE THE SAME SET OF OBSERiJED LiALUESv 

S5S 

WHAT IS YOUR CHOICE OF CLASSIFICATION METHOD? 


HOW MANY CLASS 
3 


:S DO YOU WISH TO HAUE? 


THE CLASS BREAKS ARE; 


14.5 
18.1 




COMPILATION OF 


CLASS FREQUENCIES: 


CLASS 
1 

3 


FREQUENCY 
17 
38 
8 


COMPUTATION OF 


D UhLUES 


CLASS 
\ 
2 
3 


D UALUE 
8.0133068074364 
0.00372001882973 
0.00771823187795 


TOTAL D UALUE: 


0.6247450581441 



Fig. 1(b). A sorting program classifies data by 
equal steps 

To put these files together, we took the 
shade routine published in TEKniques 
(Vol. 3 No. 1, "Shading Routine for 
Complex Shapes"), built a front end for 
the data, coded a routine to read the 
map and boundary file and another rou- 
tine to handle the intervals, titles, and 
legends. We are now able to produce 
value maps, shade maps or three-dimen- 
sional maps through the 4051. The user 
has the option of using color rather than 
line patterns for shading. The output is 
invaluable. 

For example, we graphed the spatial 
characteristics of the birth data in Fig. 
2a. Notice the higher rates in the south- 
em portion of the state. At this point the 
health services planner would take a clo- 
ser look by getting a value map and 
looking at specific values (Fig. 2b). You 
simply wouldn't be able to easily pick up 
this information from tabular data. 

In another application, we did a study of 
the prevalence of hypertension. When 
we graphed these estimates, we noticed 
that a higher proportion of the popula- 
tion from the central part of the state 
seemed to be at risk. You'd never pick 
that up in a table. At this point, other 
professionals could come in, look at their 
maps and immediately relate the hyper- 
tension locations to circumstances with 
which they are famihar, such as, socioe- 
conomic data or population geography of 
the state. 

We can rotate our three-dimensional 
maps. This allows relationships that may 
be obscured to be revealed by turning 
the map so many degrees. 
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Fig. 2a. From this map, the higher birth rate in the southern part of the state is immediately apparent. 
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Fig. 2b. A value map translates the shaded map into hard figures. 




Fig. 3a. A three-dimensional data map links sta- 
tistics to locale. 



Fig. 3b. Rotating the map allows a clear look at 
the previously obscurred data magnitude in the 
north end of the state. 
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To produce the charts and graphs we 
needed, we modified an Applications Li- 
brary program by adding a routine to 
produce logarithmic axes. The additional 
code overloaded memory so we divided 
it into three overlays. Our efforts paid 
off, however, in that we are now able to 
graphically compare transient data of dif- 
ferent orders of magnitude. For example, 
it is difficult to relate rates of change in 
the number of U.S. medical school 
graduates with the number of U.S. medi- 
cal schools (Fig. 4). By plotting these 
two sets of data on a logarithmic scale 
graph, we get a more precise picture of 
what the data really show. 

The ability to change source code to fit 
our needs is one of the great benefits of 
the 405 1 . If we were operating strictly on 
a host, it would have been out of the 
question to manipulate the source code 
to tailor the graph for our purposes. 

Several enhancements to our graphing 
system facilitate its use. Our technician, 
Powsiri Klinkhachorn, built a piece of 
hardware which allows us to transfer 
communication from 4025 to 4051 by the 
flip of a switch. This permits use of the 
4662 with the 4025 online and, alternate- 
ly, by simply pressing the switch, the 
4662 with the 4051 online. 

We will have the same sort of switching 
mechanism for our printer. Thus we'll 
have 4051 listings, or host listings 
through the 4025, by the flip of a switch. 

4051 Streamlines Operations 

The extra power of SAS for data man- 
agement combined with the graphics of 
the 4051 has greatly relieved our staff. 
Before this system was in place, we cut 
press-on shading to highlight our maps. 
We had masters level people cutting and 
pasting on maps! With, the 4051, every- 
one is getting their maps in a tenth of the 
time. The charts are more consistant, 
too. 

Planners and researchers used to be 
afraid to ask for graphs and maps be- 
cause they took so much time. We 
showed our system to them, and now 
they're asking for all kinds of things. 

Another real advantage to the 405 1 is our 
ability to keep working even though the 
host goes down. If the main system is 
down and we can't get a map from it, we 
can always turn to the 4051. 

Before we took possession of our 4051, 
we (Dr. Ed Bosanac and Mr. Doug Not- 
tingham, Research Associate) were 



charged with developing a presentation 
for the Charleston Area Medical Center's 
Residency Retreat. We had to graphical- 
ly present the history and predicted fu- 
ture of eight selected medical specialties. 
We got the 4051 in at 2:00 in the after- 
noon along with a copy of Data Graphing 
(4050 Applications Library program # 
51/00-9523/0). Doug and I were both famil- 
iar with the host so we started to write 
programs to display the data. After we 
wasted a few hours on that, we decided 
to plug in Data Graphing to see what 
would happen. We were delighted. It's 



tutorial nature and the friendliness of the 
4051 led us through the graphing and we 
were immediately on our way. We 
worked all night and the report was com- 
pleted the next morning, a 101 page vol- 
ume of graphics ! 

The result of the work of the health sys- 
tem planners and researchers at OHSR 
guides the expenditure of tens of millions 
of dollars. And the 4051 plays an 
extremely heavy role. 
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Fig. 4. Values of different orders of magnitude are easily compared using a program which overlays 
three graphs. 




Fig. 5. Although a statewide three-dimensional value map is now available, a future project will seg- 
ment it by jurisdictional polygons. 
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An Application of the PLOT 50 Gauss-Newton 
Non-Linear Regression Program in Physical 
Chemistry 




At the University of Wisconsin-Oshkosh Dr. Gilbert Pollnow and student Marcus Raab measure vapor 
pressure with a typical mercury manometer. Minimizing the fixed absolute error inherent in readings 
from a mercury manometer (or the relative error in readings from a calibrated gauge) is easily handled by 
the Gauss-Newton program in PLOT 50 Statistics Vol. 4. Dr. Pollnow explains the procedure in the 
following article. 



Gilbert F. Pollnow, Ph.D. 
Department of Chemistry 
University of Wisconsin-Oshkosh 
Oshkosh, Wis. 

Frequently, the two-constant thermody- 
namically derived Clausius-Clapeyron 
equation (2) is used to fit vapor pressure 
data over small temperature ranges, de- 
spite the fact that it does not take into 
account the decrease in the heat of va- 
porization with the increase in tempera- 
ture: 



LogioPi = Ci + C2/Ti 



(2) 



More satisfactory equations include the 
empirical and widely used Antoine equa- 
tion (3): 



LogioPi = Ci + C2/(C3+ ti) 



(3) 



and the so-called modified Kirchoff 
equation (4) which assumes a quadratic 
decrease in the heat of vaporization with 
temperature^: 

LogioPi = Ci + Cs/Ti + CsLogioTi + 
C4Ti (4) 

In vapor pressure measurements, usually 
the temperature ti or Ti (degrees Centi- 
grade or Kelvin, respectively) is directly 



controlled as the independent variable 
with a known error, the pressure, Pi, be- 
ing the dependent variable. Pressures 
measured with a typical mercury ma- 
nometer have a fixed absolute error, 
e.g., ±0.01 mm Hg, whereas if a cali- 
brated gauge is used, the error is usually 
a fixed percentage of the scale reading, 
e.g., 0.1%. 

Clearly, the regression procedure should 
be chosen to minimize either the abso- 
lute or relative deviations depending on 
the method of experimental measure- 
ment. However, minimizing the absolute 
deviations in the pressures requires that 
the above equations be expressed in 
their exponential forms which are non- 
linear in the constants Ci, C2, C3, and 
C4. In the event the pressure measure- 
ments have a fixed relative error and the 
errors are small, the least squares condi- 
tion can be approximated as follows: 

S =2((Pio - Pic)/Pic)' = 2((d Pi)/Pi/ = 

S(d In Pi)^ = Minimum = 

2.303 2 (d Lo&oPi)' = 

2.303 S(Log Pio — LogioPic)" (5) 

Thus, minimizing the deviations in the 

logarithms of the pressures is for most 

practical purposes equivalent to minimiz- 



ing the relative deviations in the pres- 
sures. Both problems are easily handled 
by the Gauss-Newton program #2 on the 
Statistics Volume 4 Tape. 

In using the Gauss-Newton program,, 
however, it is important to recognize 
that the input coordinates, Xi , Yi must 
be in the form specified in the user's 
subroutine since they cannot be trans- 
formed within the Gauss-Newton Pro- 
gram. Thus, if the relative deviations are 
to be minimized, the actual logarithms of 
the pressures must be input as the Yi. 
Also, the user must provide starting val- 
ues for the constants which for the pres- 
ent case can be conveniently calculated 
from equation (2) using the conjugate 
coordinate extremes to determine Ci and 
Q. C3 and C4 can be set to zero, initial- 
ly. 

The following figures show the modified 
Kirchoff subroutines required and the ^v 
graphical output with the constants su- L 
perimposed via the editing keys, using ' 
data for trimethylamine^. The figures 
have all been labeled to be self-explana- 
tory and unambiguous, except for the 
standard deviations which are in terms of 
the Y coordinates used by the program; 
hence, when the relative deviations are 
minimized the standard deviation is in 
terms of the LogioPi. 

In addition to the PLOT 50 references 
noted in the Statistics package, users 
may find the author's earlier article on 
this subject of some value since it shows 
in more detail how the derivatives enter 
a similar regression procedure.^ 
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Author's Note: In addition to the apphcation 
described, I have found the same program to J)i 

be very valuable for fitting polynomials which ^-^^ 
for theoretical reasons must pass through the 
origin, as in the case of freezing point depres- 
sion experiments. 
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TERMINATION AFTER 4 ITERATIONS. 

FINAL SUM OF SQUARES » 0.00315662065504 
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TERMINATION AFTER 3 ITERATIONS. 

FINAL SUM OF SQUARES = 4. 9 15616009E-8 



6.400270834E-5 



PARAMETER 



ERROR 



35.749326111 9.520661233275 
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Why Heats of Vaporization 

All liquids (and solids at temperatures 
above absolute zero) spontaneously tend 
to evaporate as a result of the distribu- 
tion of the kinetic energies of their 
molecules or atoms, i.e., to pass from 
the condensed state to the gaseous or va- 
por state. In a closed contained, v^here 
the vapor cannot escape, the Hquid will 
come to co-exist in a dynamic equilibri- 
um with its own vapor. The pressure ex- 
erted on the walls of the container by the 
gaseous component is called the vapor 
pressure and is the pressure at which no 
further net evaporation of the liquid will 
occur. 

The vapor pressure is dependent upon 
the temperature of the liquid; as it in- 
creases, the vapor pressure and the rate 
of evaporation also increase. Measuring 
the vapor pressure of pure substances as 
a function of temperature suffices to de- 
termine the heat of vaporization through 
the Clapeyron equation (1) below and 
which is derived in most physical chem- 
istry texts: 



AH, = T(dP/dT)(V, - VO 



(1) 



Thus, the molar heat of vaporization, 
AHv, at any temperature, T, can be 
computed from the derivative of the fit- 
ted vapor pressure equation and the mo- 
lar volumes of the vapor, Vy, and the liq- 
uid, Vi, at the same temperature. The 
so-called Clausius-Clapeyron equation (2) 
results from the integration of equation 
(1) assuming the vapor to be ideal, V, 
>> Vi, and that AH, is independent of 
temperature. 

Heats of vaporization are very important 
in such industrial applications as refriger- 
ation machines, internal combustion and 
steam engines, chemical drying 
processes, and others. 
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London Firm Develops Engineering 
Design Programs for 4050- Series 



^*^ 



n 



At Engineering Sciences Data Unit (ES- 
DU) in London, England, qualified engi- 
neering staff produce evaluated design 
data for structural, aeronautical, me- 
chanical and chemical engineers. Much 
of the work is painstaking, involving 
hundreds of time-consuming calculations; 
just the kind of thing for a computer ap- 
plication. But which computer, and 
which program? 

Chris King is ESDU's Head of Mathe- 
matical Services and Computer Products, 
and he explained the way these and oth- 
er questions were answered by building 
up a 4050 system. "In the mid 1970's we 
were spending a great deal of money 
with computer bureaus on such routine 
jobs as fitting a curve to a set of data 
points," he said. "It was the kind of 
thing that seemed ideal for a desk-top 
computer. ' ' 

In 1974 ESDU had a look at the market, 
and after a three month survey they 
bought a Tektronix 4051. 

"We were impressed with the system's 
graphics facilities," said King, "plus the 
fact that Tektronix had a lot of math 
software to back things up. Shortly after 
our initial purchase, we bought a 4662 
Plotter, which was an instant success." 

Since that time, ESDU has built the sys- 
tem by purchasing the 4052, the 4631 
Hard Copy Unit and the 4907 File Man- 
ager. Working a steady 8-9 hours a day, 
five days a week, the ESDU installation 
deals with many thousands of individual 
calculations, producing for example, 
curves to help produce the company's 
Data Items . 

These are sets of verified data, produced 
in a form that is suitable for direct use 
by a practicing design engineer who can, 
with complete confidence, take his or 
her desired data straight from the graphs 
which ESDU produce. A typical applica- 
tion is an aircraft noise project in which 
data from several microphones must be 
assembled and compared simultaneously. 

"A COMpac is an interactive program 
for use on the 4050 Series systems. 
Based on the evaluated data in existing 
Data Items, each COMpac, together with 
its user documentation and related basis 



material is designed for professionally 
qualified users. However, it requires no 
special computer knowledge, since com- 
munication back and forth is in plain En- 
glish. 

According to King, the availability of the 
powerful small computer with graphics 
facilities and the continuing lowering of 
costs of this equipment have opened up 
many new applications of high speed 
computation to engineering design and 
analysis. 

"Using their Tektronix-based COM- 
pacs," he said, "engineers can make de- 
cisions as a program is executing, reduc- 
ing the need to guess, with inadequate 
information, values of parameters that 
depend on engineering judgement. This 
guesswork is needed too with batch pro- 
cessing to avoid having to run the pro- 
gram several times." 

Print-out and graphic display of inter- 
mediate results not only aid users at the 
various intermediate decision points but 
also make them more familiar with the 
technical background of the program and 
give them more confidence in it. 

ESDU's COMpacs programs are 
designed to return control to the user 
from time to time, enabling him or her to 
apply (and further develop) engineering 
judgement. 

"This also lets users leave the program 
for as long as they wish to seek the ad- 
vice of colleagues on specific issues," 
said King. "In addition, these features 
make it easier to experiment with the ef- 
fects of varying one or more design par- 
ameters, thus giving scope to exercise 
the art as well as the science of design." 

COMpacs currently available are: 

No. 1018: The buckling of plates, 
clamped edges. 

No. 1010: The buckling of plates, 
two edges clamped and 
two edges simply support- 
ed. 

No. 1011: Buckling of plates, edges 
simply supported. 

No. 1013: Stresses and deflections in 
flat rectangular plates un- 
der normal pressure. 
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No. 6015: Aerodynamic center of 
wing-fuselage combina- 
tions. 

No. 7004: Fatigue damage estimation 
under variable amplitude 
loading. 

No. 8018: Pressure change in the 
flow of two-phase mix- 
tures. 

A program of development to produce 
more COMpacs is under way at ESDU. 
Meanwhile, the company has produced a 
COMpac demonstration program. This is 
designed not only to show how a COM- 
pac works, but also highlights salient fea- 
tures of the Tektronix 4050 Series com- 
puters (16K or bigger versions) and 
associated peripherals. 

EDSU's address is: 

251-259 Regent Street London 
WIR 7AD England 
Telephone 01-437 4894 

Their U.S. address is: 

Suite 1037 

733 15th Street N.W. 
Washington, DC 20005 
Telephone (202) 638-0055 



Note: As a service, TEKniques may publish no- 
tices of software, hardware and services from 
suppliers other than Tektronix. No evaluation 
or endorsement by Tektronix, Inc. of these 
products or services is implied by such publica- 
tion. Tektronix, Inc., expressly disclaims any 
obligation of warranty or support. 
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Interfacing is an area that generates a lot 
of questions, since there is often a vari- 
ety of equipment involved as well as 
varying user needs. In this issue of TEK- 
niques, two interfacing questions are ad- 
dressed by Howard Sanders, Technical 
Support Speicalist at Tektronix, Wilson- 
ville. 

Multiple RS-232 Hookup via the GPIB 

Can you make more than one RS-232 con- 
nection to a 4050 Graphic Computing Sys- 
tem? 

There are a number of reasons for want- 
ing multiple RS-232 hookup. For in- 
stance, you might want to know if the 
host wants to talk without checking the 
Option 1 buffer for CR characters. If you 
have such a need, there is an answer. 
You can buy one of the many RS-232-to- 
GPIB couplers on the market and hook it 
to the GPIB port on the 4050. 

This not only gives you an extra RS-232 
port, but has the added advantage of as- 
serting SRQ when the host is sending to 
you. Then, if you have ON SRQ set, 
your 4050 will do a GO SUB to the loca- 
tion specified in your ON SRQ state- 
ment, and handle the information from 
the host. Now you can have another pro- 
gram running until the host wants your 
4050' s attention; it will then automatical- 
ly stop and Usten to the Host. 



The SRQ feature also works very well if 
you want to collect data from multiple 
sources, when those sources are 
equipped with RS-232 interfaces. The 
RS-232 interfaces can then be hooked to 
the couplers. Then, upon receiving an 
SRQ, the 4050 can simply poll to see 
which device wants attention, then go to 
the subroutine to handle it. In this way 
the 4050 can operate almost like a Host 
computer. 



Secondary Addressing Advantages 

What are the advantages of secondary ad- 
dressing? 

Speedier communication with peripherals 
is an important area that comes to mind. 
For instance, have you ever noticed how 
quickly you can get your 4050 series per- 
ipheral to respond to a command? That's 
a nice capability that you won't find on 
many machines, and it's simple because 
of GPIB secondary addressing. Many 
other machines use long strings or multi- 
ple commands to accomplish one simple 
operation. For example, the 4051 can 
command the plotter to draw with the 
secondary address command "PRINT 
@P,20:X(1),Y(1)." Other devices, ones 
that don't honor secondary addresses, 
might require the command string like 
"PRINT@P,32:"D",Z(1,1),Z(1,2) 



The secondary address is the address 
that follows the primary address for the 
peripheral device. For instance, the com- 
mand "PRINT @1,20:X,Y" tells the 
plotter (Primary Address 1) to do a draw 
(Secondary Address 20) to location X,Y. 
Peripherals such as the 4924 Tape Drive, 
the 4662 and 4663 Plotters, and the 4956 
Graphic Tablet will all respond to Secon- 
dary Address commands. In addition to 
peripherals, this command scheme will 
work on the 4050 itself. In this way, using 
a program variable instead of a device 
number, you can easily change the device 
to which your program will output. 

But not all companies use Secondary 
Addressing in their devices, so there is 
often a need to suppress the Secondary 
Address from automatically going out 
over the GPIB. Using a Secondary Ad- 
dress of 32 with an INPUT or PRINT 
statement will suppress Secondary Ad- 
dressing over the GPIB. 
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Catalogs Still Available 

Once again, we'd like to remind you that 
4050 Series Applications Library Cata- 
logs are still available, and free for the 
asking. You should have received yours 
by now, but if you haven't, or if you 
need additional copies, just drop a line to 
the Apphcations Library office serving 
you. The addresses are listed at the back 
of each TEKniques issue. 

Looking For Good Tips 

Programming Tips are one of our most 
valued features, according to past sur- 
veys. Readers learn from them, and like 
the sharing of information. And contribu- 
tors take pride in others learning from 
their tip, and get free programs as well. 
Do you have a good Programming Tip, 
or a helpful hint about programming? Let 
us know? We'd love to publish it as a 
Programming Tip or a BASIC Bit. And 
you get any one of 13 programs plus 
Programming Tips from the library for each 
of your pubHshed Tips or Bits. Details are 
Hsted at the end of the BASIC Bits column. 

Don't Miss Out on Applications 
and Tips 

Are you missing any TEKniques issues? 
Any of the issues from Vol. 4 are avail- 
able by calling or writing the Applica- 
tions Library office serving your area. 
Issues from Vol. 1 - 3 are no longer 
available, but the information has been 
combined into Application Reprints and 
a collection of Programming Tips. The 
following five categories of Application 
Reprints are currently available: 

Engineering and Design AX -4449 

Mapping AX -4460 

Data Acquisition and Analysis AX -4450 
Business Graphing and 

Reporting AX-4451 

Peripherals and ROM Packs AX-4452 

If you need an article from one of the 
issues in Volumes 1 — 3, one of these 



reprint sets will likely fill your needs. To 
get your set, just contact your local Tek- 
tronix office, or the Applications Library 
serving you. 

The Programming Tips collection com- 
bines 148 tips from the three volumes in- 
to one handbook, with a keyword index 
to help you find what you need. The 
handbook is available through the Appli- 
cations Library. U.S. domestic price is 
^10. 

Need Extra Copies? 

Do you need more than one copy of 
TEKniques on hand, for students, occa- 
sional users, coworkers, or others? Just 
let us know how many you'd like to re- 
ceive at each pubHcation. Call (503) 685- 
3618. 

Applications Library Changes 

The Applications Library will soon be 
changing its software distribution meth- 
ods. The Library has grown to include a 
substantial number of programs, with 
new ones being added all the time. So to 
simplify distribution, and to improve the 
cost-effectiveness for you, the software 
user, the following changes are in the 
works: 

Individual programs presently in the li- 
brary will be grouped into application 
area categories. Programs in the catego- 
ries will then be combined into full tape 
sets, which will then be numbered, to be 
ordered as a set. The programs presently 
in the library will no longer be available 
on an individual basis. New programs 
will be available individually until they 
are included in an update tape, or a new 
volume of tapes. 

Documentation for the programs will al- 
so be incorporated into sets, but will no 
longer include program listings. (List- 
ings, of course, are always available 
from the program tape.) More informa- 
tion will be published in the next issue of 
TEKniques. 



Input/Output — It's Your 
Column 

The Input/Output column is included in 
the newsletter to answer any questions 
you might have, whether they're con- 
cerned with the 4050, peripherals, pro- 
gramming, the Library or TEKniques. 
Don't shy from asking a question. What- 
ever your question might be, let us 
know. We'll be happy to print your 
question and answer. (And, chances are, 
lots of others have similar questions and 
will benefit as well.) 
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Picture Transfer through GMX Files 



by Bob Parent 

Tektronix, Inc. 

Wilsonville, OR 
with Patricia Kelley 

TEKniques Staff 

TEKniques Vol. 4 No. 1 described the 
PLOT 50 Standard File, a specially for- 
matted source data file which any PLOT 
50 Standard File Compatible software 
package can access. The PLOT 50 Stan- 
dard File was specifically designed to 
communicate data between analysis ap- 
plications. 

An adjunct to the Standard File are PLOT 
50 Graphic Model Exchange Files (GMX), 
— specially formatted files to allow 
graphic data to be accessed by more than 
one PLOT 50 software package. There 
are two types of GMX files: Picture files 
and Font files. Picture files store picture 
definitions, and Font files store character 
font definitions. 

PLOT 50 Picture Composition, described 
in TEKniques Vol. 5 No. 1, is the first 
PLOT 50 package implementing the 
GMX format for Picture files. Packages 
which output and input GMX files are 
identified as PLOT 50 GMX File com- 
patible. 

Care was taken to make the GMX for- 
mat easy to understand and easy to gen- 
erate. So users writing their own graphic 
applications can access GMX files or 
create GMX files, this article outlines the 
GMX Picture file format. 

GMX Picture File Overview 

The basic structure of a GMX picture (or 
any picture) consists of small areas 
known as subpictures. And each subpic- 
ture is made up of graphic objects. For 
example, a layout of a house could con- 
sist of subpictures of the various rooms. 
These subpictures, in turn, would be 
composed of tables, chairs, and so forth. 
Or, a GMX picture may consist of only 
one subpicture. 

Thus, a GMX Picture file may be a ser- 
ies of subpictures (or one subpicture) 
which contain graphic objects. Put all the 
subpictures together and you have your 
master picture. But how are these graphic 
objects represented so different programs 
may access the file and display them? 

Think of the GMX picture file(s) as a 
sequence of graphic "actions." These 



actions range from the most elementary the program what to do with it and any 
steps which construct the graphic objects parameters following, 
to an action which brings in an already- 



constructed subpicture. Each action has 
been assigned a function code which tells 



Refer to the function codes and the file 
format illustrations while we take a look 
at a GMX Picture file. 



GM LOGICAL FOEMAT 



FILE 
DESCRIPTORS 



LINE, TEXT, 
FILL TABLES 



SUBPICTURES 



SUBPICTURE 




ATTRIBUTES 





GM PHYSICAL FOIUIAT 

PLOT 50 DATA DISK PLOT 50 STANDARD DATA TAPE 








'.P50GMX/username.PICT' 






PROGRAM 


'P50STND 


, GMX 
FILE 


\ ] 


GMX 
FILE 








____;:::^^====== — ^'^^^^^^ -1--__J\ 










'P50PICT' 
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PICT' 


GMX 
STRING 
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> STRING 








^^,,,^--'""''''^ 250 cha long — -— ^...._^__^ 
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RECORD 


\ \ 
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FUNCTION 




PARAMETER 
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PARAMETER 
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'WXYZ' 





























path object 13 



path object 14 

path object 42 
path object 34 
path object 29 

path object 40 




text C 
j object V 
■■26 Lh 



path object 57 
path object 37 



JAMILY ROOM 



path object 24 




path object 11 

path object 46 
path object 9 

path object 48 



path object 1 



The Graphic Model Exchange (GMX) file generated to create this drawing is listed at the end of this 
article. Annotations relate code to the room' s components. 
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GMX Functions 

GMX File Compatible packages support 42 functions (actions). The following describes each function and its parameters. 
The quantity, type and order of the parameters for each function is always the same. A dollar sign ($) after a parameter 
name indicates it is a string. An example is given for each function and parameter(s). 



Function # Function 



Parameters 



Example 



^t 



10 

11 
12 

20 

22 

21 
30 

32 

31 
40 
42 

41 
50 

51 

52 
53 



59 



60 



61 



62 



OPEN FILE TYPE, NAME^ 10:0, 'MYPIC; 

This function always occurs at the beginning of the file. TYPE is the GMX file type, which is for picture files. NAME^ is a user-defined 
name for the picture (this should not be confused with the name of the GMX file on the disk or tape). 

CLOSE FILE none 11; 

This function occurs at the end of the GMX file. 

FILE DESCRIPTOR STRINGS 12:'Data from 12-25-52'; 

This function allows strings of user data describing the file to be placed in it. The string may contain any printing characters (with ' 
replaced by "). File descriptors must precede any tables or subpictures. 

OPEN LINE TABLE none 20; 

This function starts the definitions of line styles. It must precede any subpictures; however, the three tables (Hne, text, and fill) may be in 
any order. 

DEFINE LINE STYLE INDEX, DASH, WIDTH 22:4,95,2.0; 

This function defines the line style number specified by INDEX. DASH and WIDTH describe the appearance of the line. The semantics of 
DASH and WIDTH are not defined by GMX. This function can only be issued between opening and closing the Hne table. 

CLOSE LINE TABLE none 21; 

This function closes definition of line styles. 

OPEN TEXT TABLE none 30; 

This function begins definition of text styles, similarly to OPEN LINE TABLE. 

DEFINE TEXT STYLE INDEX,FONT5 32:5,'ITALICS'; 

This function defines the text style number specified by INDEX. FONT^ is the name of the character font. The set of legal names, and the 
appearance of the fonts are not specified by GMX. 

CLOSE TEXT TABLE none 31; 

This function ends the text style definitions. 

OPEN FILL TABLE none 40; 

This function begins definition of fill styles, similarly to OPEN LINE and OPEN TEXT TABLES. 

DEFINE FILL STYLE INDEX,P1. . .P5 42:1,2.4,13,3,3,2.5; 

This function defines the fill style numberr specified by INDEX. The five parameters describe the fill style. The semantics of the fill 
parameters is not specified by GMX. 

CLOSE FILL TABLE none 41; 

This function ends the fill style definition. 

OPEN SUBPICTURE N AME5 50: " ; 

50: 'HOUSE'; 

This function begins the definition of a subpicture. The first subpicture in the file has no name; thus, the function record looks like the first 
example. Note that the string parameter must still be present. 

CLOSE SUBPICTURE none 51; 

This function terminates definition of the subpicture. It must be given before another subpicture can be opened. 

The following functions may only be issued at the beginning of the subpicture (before any objects within the subpicture are defined). 

SET EXTENT LOWX, HIGHX, LOWY, HIGHY 52:10.5,35.2,1.5E3,1.8E3; 

This function specifies the extent of the subpicture. This information can be of value to the receiving application for scaling the picture or 
subpicture. 

DEFINE PICK POINT X, Y 53:16.2,254.3; 

This function defines a pick point for the subpicture. Pick points are used to point to a subpicture. It is often useful for subpictures to have 
the same pick point, i.e., center of subpicture relative to EXTENT (above). 

The following funcfions are used to define the objects in a subpicture. They may only be used after any EXTENT or PICK POINT 
functions for the subpicture are given. 

OPEN POINT OBJECT ID,TYPE 59:37,1000; 

This function begins definifion of a POINT object. ID is a number which may be used to identify the object (all object ID numbers should be 
unique). TYPE is the type of point in the point object. The type of point is application dependent. 

OPEN SUBPICTURE OBJECT ID,X,Y,NAME5 60:3645,30.5,24.2,'RESISTOR'; 

This function begins definition of a SUBPICTURE REFERENCE object. ID is the object ID, as described above. X and Y give the 
location in picture space where the origin in subpicture space is mapped. NAMES? is the name of the subpicture (see OPEN SUBPIC- 
TURE). 

OPEN TEXT OBJECT ID, X,Y, STRINGS 61:216,30.5,20.4,'65 ohms'; 

This function begins definition of a TEXT object. ID is the object ID. X and Y give the location of the lower left corner of the first 
character. STRING^ is the text string, which may be up to 72 characters long. 

OPEN PATH OBJECT ID 62:49761; 

This function begins definifion of a PATH object. ID is the object ID. 



^\: 



Jl 
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Function # Function 



Parameters 



Example 



63 
64 

65 

66 
67 

68. 

69 
70 

71 
72 

73 

80 

82 

83 
84 
85 
81 

90 
92 

93 
94 

91 



OPEN POLYGON OBJECT ID 

This function begins definition of a POLYGON object. ID is the object ID. 

CLOSE OBJECT none 

This function ends the definition of an object. 



63:49762; 
64; 



The following object information functions, if used, must occur at the beginning of the object definition (i.e., before the labels 
and coordinates). 

SET TRANSFORM X1,X2,Y1,Y2 65:3,0,0,3; 

This function defines the rotation and scaling of a TEXT or SUBPICTURE REFERENCE object. XI and Yl give the location in picture 

coordinates where the point (1,0) is mapped; X2 and Y2 give the location where the point (0,1) is mapped. SET TRANSFORM may only 

occur in a TEXT or SUBPICTURE object. 

SET LINE STYLE INDEX 66:3; 

This function defines the line style for the object. INDEX is the number of the line style. 

SET PEN NUMBER INDEX 67:2; 

This function sets the pen number for the object. INDEX is the desired pen number. This function can be used when plotting the picture to 
change pens. 

SET TEXT STYLE INDEX 68:1; 

This function defines the text style for the object. INDEX is the number of the text style. 



69:3; 
70:'Monday'; 

71:10,15,13,17; 
72:37.542,13.6; 



SET FILL STYLE INDEX 

This function defines the fill style for the object, INDEX is the number of the fill style. 

SET OBJECT DESCRIPTOR STRINGS 

This function allows a string of user-defined information to be stored in an object. 

SET OBJECT EXTENT LOWX, LOWY, HIGHX, HIGHY 

This funcdon specifies the f xtent of the object. 

SET PICK POINT X,Y 

This function defines a pick point for the object. It is often useful for all occurrences of an object to have the same pick point relafive 

to the subpicture. 

SET LEVEL INDEX 73:5; 

This function assigns a level number to the object. Level numbers are useful for segregating different parts of the picture for manipulation. 

INDEX is the level number. 

The following functions allow labels for an object to be defined. 

OPEN LABEL DESCRIPTION none 80: 

This funcdon begins the definition of the labels for an object. 

SET LABEL STYLE INDEX 82:1; 

This function sets the character style for labels following. INDEX is the number of the character style. 

SET LABEL TRANSFORM X1,X2,Y1,Y2 83:1.5,1.3,-1.3,1.5; 

This function sets the label transform for following labels (see SET TRANSFORM for descripdon of mapping). 
SET LABEL PEN INDEX 84:2; 

This function sets the pen number of the following labels. INDEX is the number of the pen. 

ENTER LABEL X,Y,STRING$ 85:78.2,14.26,'Budget'; 

This funcdon defines a label. The label will take on the characteristics set by the most recent label attributes in the current object. 

CLOSE LABEL DESCRIPTION none 81; 

This function ends definition of labels. 

The following functions describe the coordinate data for the object. 

OPEN POINT DESCRIPTION none 90; 

This function begins definition of the coordinate data for the object. The point description must follow the label description if one is 

present. Point descriptions are only allowed in PATH, POINT, and POLYGON objects. 

ENTER VERTEX X,Y 92:56.23, 1.5E02; 

This function defines a vertex in the current object. The first and last points in the point description must always be vertices. The first and 

last points in the point description of a POLYGON object must have the same coordinates. 

ENTER ARC POINT X,Y 93:16.2,43.764; 

This funcdon defines an arc point in the current object. An arc point must be preceded and followed by vertices. Arc points are not allowed 

in POINT objects. 

ENTER CURVE POINT X,Y 94:57.87,12.43; 

This funcdon defines a curve point in the current object. A curve point must be preceded and followed by either curve points or verdces. 

Curve points are not allowed in POINT objects. 

CLOSE POINT DESCRIPTION none 91; 

This function ends the point definition. 



Tekniques 
Vol. 5 No. 2 



15 



GMX Picture Files on Tape 

First, let's look at the preliminary 
requirements for storing a GMX picture 
file on tape. 

GMX files may reside on any PLOT 50 
Standard Data Tape. A PLOT 50 Stan- 
dard Data Tape has the following format: 

File 1. An ASCII program. When the 
tape is autoloaded, this file identifies the 
tape to the users as a PLOT 50 Standard 
Data Tape. 

File 2. This is a binary data file. As its 
first item it must contain the string: 
P50STND. This string identifies the tape 
as a PLOT 50 Standard Data tape. With- 
out this file, the tape cannot be read by a 
PLOT 50 Standard File Compatible/GMX 
File Compatible program. Further con- 
tents of this file are ignored by the program. 

File 3 and following. The remainder of 
the files are PLOT 50 GMX, Standard or 
Package dependent Files. Some or all of 
these files may be GMX files. A GMX 
picture file on tape has two additional 
strings at the beginning which are not found 
on the disk. The first string is P50PICT 
which identifies the file as a GMX picture 
file. The second is the username for the 
file, which may be up to ten characters 
long with .PICT as the extension. When 
GMX files are put on or taken from a tape 
by a PLOT 50 GMX file Compatible pro- 
gram, they are referred to by name rather 
than number. 

GMX Picture Files on Disk 

The only requirement peculiar to the disk 
is that the file identifier of the GMX 
picture file must be: 



@P50GMX/username.PICT 

Thus, all GMX files on the disk reside in 
the library P50GMX. The extension 
.PICT is used to distinguish between pic- 
ture files and other types of GMX graph- 
ic files. For example, .FONT would indi- 
cate a GMX font file. 

Physical GMX Picture File 

Physically, a GMX picture file is a se- 
quential binary file, consisting only of 
strings, which describes the subpic- 
ture(s). Each string may be up to 250 
characters long. Each string consists of 
one or more GMX records concatenated 
together. 



Each record contains an action which 
defines or contributes towards defining 
one of the graphic objects which make 
up the subpicture. Thus, a GMX record 
consists of one or more fields which 
store a numeric function code, zero or 
more numeric parameters and/or zero or 
more string parameters. The quantity of 
numeric or string parameters for a given 
function code is always the same. 

The function code specifies the type of 
action, e.g., OPEN TEXT OBJECT 
(Function 61), and the parameters in the 
record specify the other information nec- 
essary to fully define the action, i.e., the 
string and its location. 

Each record is terminated by a semico- 
lon (;). If the record consists of only a 
function code with no parameters, the 
semicolon immediately follows the func- 
tion code, e.g.. Function 11, CLOSE 
FILE. Otherwise, the function code is 
separated from the parameters by a co- 
lon (:). The parameters are separated 
from each other by a comma (,). 

Spaces may be used between records 
and between fields within a record. A 
record may be broken across strings pro- 
vided the break occurs between fields, 
i.e., after the field separator. 

The form of a numeric parameter may be 
anything which is acceptable to the VAL 
function in BASIC, including signs, deci- 
mal points, and exponents. String param- 
eters are enclosed in single quotes ('). A 
single quote in a string must be replaced 
by two single quotes ("). Note the exam- 
ples of different formats included with 
the function codes. 



GMX File Descriptor 

A GMX File may contain a file descrip- 
tor. This is an application dependent 
character string which is placed at the 
beginning of the GMX file. It is used to 
store information which cannot be stored 
in GMX format in some other way. 

GMX Tables 

In order to improve portability between 
programs while still allowing a GMX pic- 
ture to be sent to different types of de- 
vices, parameters of some object attrib- 
utes are specified as integers. The 
meaning of these integer values can be 
estabHshed by the appHcation producing 
the GMX file so that the application re- 
ceiving the GMX file may reproduce the 
picture faithfully. The meaning of these 






integer values are described in a set of 
optional tables at the beginning of the 
GMX file (but following the File Descrip- 
tor, if any). The tables supported by 
GMX files are: 

Line Style 
Text Style 
Fill Style 

However, some PLOT 50 GMX File 
Compatible programs have a fixed set of 
line styles and character fonts, and don't 
use any fill style. Thus, these programs 
will not produce any tables preceding the 
GMX files they put out, and they will ig- 
nore any tables on files coming in. 



GMX Subpictures 

A GMX subpicture may begin with two 
attributes: 

SET EXTENT 
DEFINE PICK POINT 

SET EXTENT provides the receiving 
program with the coordinates of the win- 
dow of the subpicture, thus informing it 
of its scale. 

By designating coordinates within a sub- 
picture as its PICK POINT, a program 
can refer to this point in moving and 
placing subpictures. ^^Hl 

Once the EXTENT and PICK POINT "* 
actions are defined, the objects within 
the subpicture are described. 

GMX Graphic Objects 

All GMX subpictures are constructed 
from five types of graphic objects: 

PATH 
POLYGON 

POINT 
TEXT 

SUBPICTURE REFERENCE 

While there are some differences in the 
format between these five types, they all 
follow the same general form. 

The first record specifies which object 
will be defined. Next, there may be at- 
tributes which describe some of the char- 
acteristics of the object necessary for 
producing its image, e.g., line style. 
These need not be present, in which case 
a default value is implied. 

After 'the attributes, there may be a sec- 
tion where any labels are defined. Each y/f) 
object may have its own labels. The la- " 
bels themselves may have certain attrib- 
utes, i.e., text style. 
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The last part of an object description is 
the point definition section. This section 
is only present for PATH, POLYGON 
and POINT objects. It contains the coor- 
dinates which describe the graphical part 
of the object. 

Object Attributes 

SET TRANSFORM may only occur in a 
TEXT or SUBPICTURE object. SET 
TRANSFORM allows text or a subpic- 
ture to be represented in the picture in a 
different size or orientation than their 
original definition. To do this, a linear 
transformation is applied to the text 
string or subpicture. To specify this 
transformation, you simply supply the 
coordinates in picture space of the loca- 
tions where two points in the object's 
coordinate space are mapped. The two 
points of the TEXT object are lower 
right and upper left of the first character. 
The two points of the SUBPICTURE 
object are lower right and upper left of 
its window. 

SET LINE STYLE is used with PATH 
or POLYGON objects. 

SET PEN NUMBER may be used with 
any of the objects. 

SET TEXT STYLE would be used with 
TEXT objects only. 

SET FILL STYLE would be used to 
shade a POLYGON. 

SET OBJECT DESCRIPTOR. The infor- 
mation stored here would not necessarily 
be printed. This function is application 
dependent. 

SET OBJECT EXTENT. Like Function 
52, this sets the window but of the object 
within the subpicture. 

SET PICK POINT. The point set would 
be used to point to an object. It is often 
useful for all occurrences of an object to 
have the same pick point relative to the 
subpicture. 

SET LEVEL. Using level numbers, a 
program can. display only those objects 
contained on the same level. Very handy 
for manipulating parts of subpictures. 

Object Labels 

The Label Definition Section follows the 
Object Attribute section. GMX supports 
three attributes for labels: 

Style 

Transform 

Pen 



Style is self-explanatory. Refer to SET 
TRANSFORM in the Object Attributes 
for an explanation of Transform. Pen re- 
fers to the pen number. 

Object Points 

The Point Definition Section of the 
POINT object describes a set of individ- 
ual locations. Each of these locations is 
called a vertex. No lines, curves, or arcs 
may be used within a POINT object. 

For PATH or POLYGON objects, there 
may be three types of points: vertex, arc 
and curve. These locations are connect- 
ed together according to certain conven- 
tions to create a contour. A POLYGON 
object describes a closed contour, while 

Summary 

This has given you an overview of the PLOT 50 Graphic Model Exchange File 
(GMX) structure. To summarize the commands and their sequence: 



the contour described by a PATH is not 
necessarily closed. 

When two vertex points occur together 
in a PATH or POLYGON, they are 
meant to be connected by a straight line. 
An arc point, which must always be im- 
mediately preceded and followed by ver- 
tices, implies that a circular arc be 
drawn through the three points. A se- 
quence of curve points, which must al- 
ways be preceded and followed by ver- 
tices, implies that a smooth curve is 
passed through the two vertices and the 
curve points. The net result is that a 
PATH or POLYGON defines a set of 
segments of various shapes which are 
connected end-to-end in an unbroken se- 
quence. 



OPEN FILE (10) 
FILE DESCRIPTOR (opt) (12) 

OPEN LINE TABLE (opt) (20) 
DEFINE LINE STYLE (22) 
CLOSE LINE TABLE (21) 

OPEN TEXT TABLE (opt) (30) 
DEFINE TEXT STYLE (32) 
CLOSE TEXT TABLE (31) 

OPEN FILL TABLE (opt) (40) 
DEFINE FILL STYLE (42) 
CLOSE FILL TABLE (41) 

OPEN SUBPICTURE (50) 
SET EXTENT (opt) (52) 
DEFINE PICK POINT (opt) (53) 

OPEN POINT OBJECT (opt) (59) 
SET PEN NUMBER (opt) (67) 
SET OBJECT DESCRIPTOR (opt) (70) 
SET OBJECT EXTENT (opt) (71) 
SET PICK POINT (opt) (72) 
SET LEVEL (opt) (73) 

OPEN LABEL DESCRIPTION (opt) (80) 
SET LABEL STYLE (opt) (82) 
SET LABEL TRANSFORM (opt) (83) 
SET LABEL PEN (opt) (84) 
ENTER LABEL (85) 

CLOSE LABEL DESCRIPTION (81) 

OPEN POINT DESCRIPTION (90) 
ENTER VERTEX (92) 



CLOSE POINT DESCRIPTION (91) 
CLOSE OBJECT (64) 

OPEN SUBPICTURE OBJECT (opt) (60) 
SET TRANSFORM (opt) (65) 
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SET LINE STYLE (opt) (66) 

(if any lines within the subpicture 

used the default, this command would 

override the default) 
SET PEN NUMBER (opt) (67) 

(override default) 
SET TEXT STYLE (opt) (68) 

(override default) 
SET FILL STYLE (opt) (69) 

(override default) 
SET OBJECT DESCRIPTOR (opt) (70) 
SET OBJECT EXTENT (opt) (71) 
SET PICK POINT (opt) (72) 
SET LEVEL (opt) (73) 
OPEN LABEL DESCRIPTION (opt) (80) 

SET LABEL STYLE (opt) (82) 

SET LABEL TRANSFORM (opt) (83) 

SET LABEL PEN (opt) (84) 

ENTER LABEL (85) 
CLOSE LABEL DESCRIPTION (81) 
CLOSE OBJECT (64) 

OPEN TEXT OBJECT (61) 
SET TRANSFORM (opt) (65) 
SET PEN NUMBER (opt) (67) 
SET TEXT STYLE (opt) (68) 
SET OBJECT DESCRIPTOR (opt) (70) 
SET OBJECT EXTENT (opt) (71) 
SET PICK POINT (opt) (72) 
SET LEVEL (opt) (73) 
OPEN LABEL DESCRIPTION (opt) (80) 
SET LABEL STYLE (opt) (82) 
SET LABEL TRANSFORM (opt) (83) 
SET LABEL PEN (opt) (84) 
ENTER LABEL (85) 
CLOSE LABEL DESCRIPTION (81) 
CLOSE OBJECT (64) 

OPEN PATH OBJECT (opt) (62) 
SET LINE STYLE (opt) (66) 
SET PEN NUMBER (opt) (67) 
SET OBJECT DESCRIPTOR (opt) (70) 
SET OBJECT EXTENT (opt) (71) 
SET PICK POINT (opt) (72) 



SET LEVEL (opt) (73) 

OPEN LABEL DESCRIPTION (opt) (80) 
SET LABEL STYLE (opt) (82) 
SET LABEL TRANSFORM (opt) (83) 
SET LABEL PEN (opt) (84) 
ENTER LABEL (85) 

CLOSE LABEL DESCRIPTION (81) 

OPEN POINT DESCRIPTION (90) 
ENTER VERTEX (92) 
ENTER ARC POINT (opt) (93) 
ENTER CURVE POINT (opt) (94) 



ENTER VERTEX (92) 
CLOSE POINT DESCRIPTION (91) 
CLOSE OBJECT (64) 
OPEN POLYGON OBJECT (opt) (63) 
SET LINE STYLE (opt) (66) 
SET PEN NUMBER (opt) (67) 
SET FILL STYLE (opt) (69) 
SET OBJECT DESCRIPTOR (opt) (70) 
SET OBJECT EXTENT (opt) (71) 
SET PICK POINT (opt) (72) 
SET LEVEL (opt) (73) 
OPEN LABEL DESCRIPTION (opt) (80) 

SET LABEL STYLE (opt) (82) 

SET LABEL TRANSFORM (opt) (83) 

SET LABEL PEN (opt) (84) 

ENTER LABEL (85) 
CLOSE LABEL DESCRIPTION (81) 
OPEN POINT DESCRIPTION (90) 

ENTER VERTEX (92) 

ENTER ARC POINT (opt) (93) 

ENTER VERTEX (92) 

ENTER CURVE POINT (opt) (94) 

ENTER VERTEX (92) 



CLOSE POINT DESCRIPTION (91) 
CLOSE OBJECT (64) 
CLOSE SUBPICTURE (51) 
CLOSE FILE (11) 



,^ 



-^v 



For a working example 


, let's take a 


look 


code was generated by the PUT utility of 


at the following code to see exactly how the 


PLOT 


50 Picture Composition software 


GMX picture file is constructed. 


This 


package. 


P50PICT 










FAMILYROOM.PICT 10:0, 


'FAMILYROOM.PICT' ; 


open file; username 


12: 'SUBPIC:NO'; 








file descriptor 


50:"; 








open subpicture (1st subpicture in a file has no name) 


52:0,100,0,100; 








set extent 


53:50,50; 








define pick point 


62:1; 








open path object (ID is #1) 


71:20,90,15,30; 








set extent 


72:20,15; 








set pick point 


90; 








open point description 


92:20,15; 








enter vertex (at coordinates 20,15) 


92:35,15; 








II 11 


92:35,30; 








II II 


92:90,30; 








II II 


91; 








close point description 


64; 








close object 


62:9; 








open path object (ID is #9--ID #'s don't have to be sequential) 



V^' 
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71:90,90,40,60; 




72:90,40? 




90? 


open point description 


92:90,40? 




92:90,60? 




91? 


close point description 


64? 


close object 


62:11? 


open path object #11 


71:70,90,70,95? 




72:90,70? 




90? 


open point description 


92:90,70? 




92:90,95? 




92:70,95? 




91? 


close point description 


64? 


close object 


62:13? 


open path object #13 


71:30,70,95,95? 




66:2? 


set line style (for the object) 


72:70,95? 




90? 


open point description 


92:70,95? 




92:30,95? 




91? 


close point description 


64? 


close object 


62:14? 


open path object #14 


71:20,30,80,95? 




72:30,95? 




90? 


open point description 


92:30,95? 




92:20,95? 




92:20,80? 




91? 


close point description 


64? 


close object 


62:34? 


open path object #34 


71:20,20,60,70? 




72:20,70? 




90? 


open point description 


92:20,70? 




92:20,60? 




91? 


close point description 


64? 


close object 


62:40? 


open path object #40 


71:20,20,30,50? 




72:20,50? 




90? 


open point description 


92:20,50? 




92:20,30? 




91? 


close point description 


64? 


close object 


62:42? 


open path object #42 


71:20,20,70,80? 




66:2? 


set line style 


72:20,80? 




90? 


open point description 


92:20,80? 




92:20,70? 




91? 


close point description 


64? 


close object 


62:46? 


open path object #46 


71:90,95,60,70? 




72:95,70? 




90? 


open point description 


92:95,70? 




92:90,60; 




91; 


close point description 


64? 


close object 


62:48? 


open path object #48 


71:90,95,30,40; 




72:90,30? 




90? 


open point description 


92:90,30; 




92:95,40; 




91; 


close point description 


64; 


close object 


62:50; 


open path object #50 


71:70.63,87.08,72.35,90.57; 




72:77,88; 
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82:4; 

83:0.94,-0.35,0.34,0,94; 
85:75.18,80.15, 'CHAIR' ; 
81; 



open label description 
set label style (font) 
set label transform 
enter label 
close label description 
open point description 



92:77,88 


f 


92:72.51,75.8; 


92:70.63,76.49; 


92:75.81,90.57; 


92:87,08,8^.42; 


92:81.89,72.35; 


92:80.02,73.04; 


92:84.51,85.24; 


92:77,88; 


92:76.65,87.06; 


92:76.9,84.84; 


92:82.53,82.77; 


92:84.16,84.3; 


92:80.36,73.98; 


92:79.08,73.38; 


92:73.45,75.45; 


92:72.86,76.74; 


91; 


64; 


62:20; 


71:39,61,77,87; 


72:42,87; 


80; 


82:4; 


83:1,0,0,1; 


85:43,79, 'COUCH' ; 


81; 


90; 


92:42,87 




92:42,77 




92:39,77 




92:39,87 




92:61,87 




92:61,77 




92:58,77 




92:58,87 




92:58,86 




92:42,86 




92:42,84 




92:43,83 




92:49,83 




92:50,84 




92:50,86 




92:50,84 




92:51,83 




92:57,83 




92:58,84 




92:58,78 




92:57,77 




92:51,77 




92:50,78 




92:50,84 




92:50,78 




92:49,77 




92:43,77 




92:42,78 




91; 


64; 


62:7; 


71:40,60,66,74; 


72:40,66; 


80; 


82:4; 


83:1,0,0,1; 


85:43,69, 'COFFEE lABLE'; 


81; 


90; 


92:40,66 




92:60,66 




92:60,74 




92:40,74 




92:40,66, 




91; 


64; 


62:29; 





close point description 
close object 
open path object #20 



open label description 



close label description 
open point description 



close point description 
close object 
open path object #7 



open label description 



close label description 
open point description 



close point description 
close object 
open path object #29 



^ 



^v. 
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71:20,20,50,60; 




66:2; 


set 1 ine styl e 


72:20,60; 




90; 


open point description 


92:20,60; 




92:20,50; 




91; 


close point description 


64; 


close object 


61:26,33,49, 'FAMILY ROOM'; 


open text object #26 


71:33,77,49,58; 


set extent 


67:2; 


set pen number 


68:2; 


set text style (font) 


65:4,0,0,9; 


set transform 


72:33,49; 


set pick point 


64; 


close object 


62:36; 


open path object #36 


71:23.73,34.27,78.73,89.27; 




72:29,84; 




80; 


open label description 


82:4; 




83:1,0,0,1; 




85:26,85, 'ROUND'; 


(places a two-word 


83:1,0,0,1; 


label on two 1 ines) 


85:26,82, 'TABLE' ? 




81; 


close label description 


90; 


open point description 


92:29,89.27; 




93:29,78.73; 


(arc) 


92:29,89.27; 




91; 


close point description 


64; 


close object 


63:24; 


open polygon object #24 


71:58,85,30,35; 




72:58,30; 




80; 


open label description 


82:4; 




83:1.11,0,0,1; 




85:68,32, 'BOOK CASE'; 




81; 


close label description 


90; 


open point description - 


92:58,30 






92:58,35 






92:85,35 






92:85,30 






91; 


close point description 


64; 


close object 


62:37; 


open path object #37 


71:44.8,54.8,33.38,41.38; 




72:44.8,36.38; 




80; 


open label description 


82:4; 




83:1.05,0,0,1.28; 




85:47.87,38.27, 'T. V.'; 




81; 


close label description 


90; 


open point description ' 


92:44.8,36.38 






92:54.8,36.38 






92:54.8,41.38 






92:44.8,41.38 






92:44.8,36.38 






92:47.8,36.38 






92:48.8,33.38 






92:50.8,33.38 






92:51.8,36.38 






91; 


close point description 


64; 


close object 


62:57; 


open path object #62 


71:45.8,53.8,41.38,42*56? 




72:53.8,41.38; 




90; 


open point description 


92:53.8,41.38; 




93:49.76,42.56; 


(arc) 


92:45.8,41.38; 




91; 


close point description 


64; 


close object 


51; 


close subpicture 


11; 


close file 
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by Dave Watts 
Tektronix, Inc. 
Wilsonville, OR 



4051 Redesigned for Added Value 



There are a number of reasons for rede- 
signing an existing product. Sometimes 
technology changes, and sometimes sup- 
plied components change. Other times 
there is a desire to add features that wer- 
en't available when the product was in- 
troduced. 

The 4051 has just undergone such a 
change, which has resulted in new stan- 
dard features and added value. The basic 
4051 now comes with 16K Bytes of stan- 
dard memory. In addition, the Matrix 
ROM functions and Binary Program 
Loader functions are now standard. 

The Added Value 4051 will allow first- 
time users a wider selection of applica- 
tion software due to the larger available 
memory. And the built-in matrix func- 
tions are a feature that's useful in solving 
linear regressions, statistical problems, 
and two- and three-dimensional transfor- 
mations. The standard binary program 
loader in the backpack will load pro- 
grams from tape to memory four to six 
times faster than ASCII stored programs. 

In addition to containing the same matrix 
and binary program loader functions that 
are found in the 4052 and 4054, another 
change is found in the size of additional 
memory. There is a single memory incre- 
ment of 16K Bytes available for the re- 







designed 4051. This means there are two 
memory sizes available — either 16K 
Bytes or 32K Bytes of user memory. 

By adding these features, the 4051 will 
continue to serve many users as a high- 
resolution graphic desktop computer. 



Further information about the Added 
Value 4051 can be obtained from your 
local Tektronix Sales Engineer. 



i) 
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TEKniques Interview 



rX 



This week the TEKniques reporter inter- 
views the staff of the APPROACHING 
COMPUTER GRAPHICS SEMINAR, 
Lynn Normandin and Don Davis, Semi- 
nar Leaders, and Sam Dunne, Seminar 
Coordinator and Registrar. 

T: I understand that TEK sponsors a 
computer graphics seminar. Can you 
tell us how it got started? 

D: Yes. It began because management of 
our Information Display Division feels 
that managers in general have a diffi- 
cult time finding out about promising 
new technology. As a leader in the 
field of computer graphics terminolo- 
gy, it seemed appropriate for us to ad- 
dress that problem. That led to the 
development of the Approaching 
Computer Graphics seminar program, 
about two years ago. 

T: Is the program aimed only at manag- 
ers? 

L: It's presented from a manager's view- 
point. However, it has been found 
useful for a number of others. 

T: What percentage of your attendees 
are managers? 

L: Typically about 40% of the attendees 
are management people. 

T: What about the other 60%? 

D: That's really a tough question. Our at- 
tendees come from a wide variety of 
areas. Some of these include finance, 
sales and marketing, data processing, 
education, engineering, and architec- 
ture. We even have a graphic artist 
attending at about 80% of the semi- 
nars. 

T: In a few words, what is the purpose 
of the seminar? 

L: To provide managers and other non- 
computer professionals with a com- 
prehensive introduction to computer 
graphics. 

T: What do you mean by "non-compu- 
ter" professionals? 

D: Just that you don't have to be a com- 
puter expert to come to the seminar 
and benefit from it. 

T: Does that mean that technical people 
shouldn't come? 

D: Not at all. As a matter of fact, many 
of our attendees would be considered 
quite technical. However, they come 

Tekniques 
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to the seminar for the comprehensive 
overview we provide rather than for 
technical information. 



T: When and where are the seminars 
held? 

S: We have a regular schedule that takes 
us to major cities in the United States 
and Canada. Typically we will be in a 
different city each month, with two 
seminars in each location. During the 
next few months we'll be in Seattle, 
Atlanta, Washington D.C., and Hous- 
ton. And of course attendees can and 
do come from all over to attend. 

T: How do people find out about the se- 
minar? 

S: Some by word of mouth, some by 
trade publication articles. But most 
learn about it through our direct mail 
brochure, which is mailed to each lo- 
cation several weeks before the sche- 
duled seminars. 



T: It sure sounds interesting. From the 
outline in your brochure it looks like 
a pretty busy day. 

D: Yes it is. We cover a lot of material, 
beginning with the history of compu- 
ter graphics and ranging through hard- 
ware and software concepts, graphic 
display systems, CAD/CAM, graph- 
ing, and implementation of a 
computer graphics solution. We make 
extensive use of color visuals, using 
about 600 35mm slides. We also have 
two workshop sessions each day. 

T: Are the workshops "hands-on" ses- 
sions using computer terminals? 

L: No, the workshops are really manage- 
ment-solving sessions. We present 
case study problems and our atten- 
dees are broken into teams to develop 
possible solutions. 

D: The workshops are a big help to many 
attendees, in that they are given an 
immediate opportunity to apply some 
of the things that they've learned. 

L: The interactive discussion in the 

workshops is also a nice change of 
pace from the slide presentations. 

T: Okay, let me review the seminar for 
our readers. It's a one-day introduc- 
tion to computer graphics, aimed pri- 
marily at managers, but you don't 
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have to be a manager to attend. Also, 
it's presented in non- technical terms, 
so you don't need a log of computer 
experience to benefit. 
The seminar tuition is $150, which in- 
cludes the seminar reference manual, 
lunch, and post-seminar refreshments. 
If any of our readers would like addi- 
tional information, they should look at 
the partial brochure reprint in this is- 
sue, and/or call Sam on the seminar 
hotline. 

S: That's right. The number is (503) 682- 
0771, and you can call collect. We 
have a recording device on the line, 
so you can call any time and leave a 
message if we're not there. 

D: One other thing that I'd like to men- 
tion is that we also offer AP- 
PROACHING COMPUTER GRAPH- 
ICS SEMINAR at the customer's 
site. 

T: How does that work? 

D: When there are several people in an 
organization who could benefit from 
this computer graphics overview, it's 
often more practical for us to bring 
the seminar to them. The cost savings 
are significant, particularly for those 
in remote locations. 
These on-site seminars have proven 
to be especially useful to current 
users who want to introduce or pro- 
mote computer graphics to other de- 
partments within their organization. 

T: How would our readers go about get- 
ting more information on these on-site 
seminars? 

S: Just call the seminar hotline number 
— (503) 682-0771. I'll be able to 
provide pricing and scheduling infor- 
mation, and answer any other ques- 
tions that might arise, ^g) 







PFtOGflAMMING 
TIP8 



/^ 



Correction to Programming Tip 



TEKniques Vol. 4 No. 8 carried the pro- 
gramming tip "Repetitious Data Entry." 
Correct statement 170 to read: 

170 GO TO 210 



Our thanks to James Y. Hope, Systems 
Analyst at Shearwater Inc. in Stoning- 
ton, CT, for pointing out this error. Our 
apologies to Michael Anderson for inad- 
vertently changing a line of his code. 



Convert PLOT 50: GRAPH PLOT to Disk 



by Bill Detweiler 

Office of Health Services 

Research 

West Virginia University 

Morgantown, W.V. 

Persons who use TEKTRONIX Plot 50: 
Graph Plot (Tektronix product no. 
4050A07) may find considerable advan- 
tage in storing the package's four pro- 
grams on a 4907 File Manager disk. This 
implementation reduces overlay access 
tipe, and eliminates the task of constant- 
ly changing between the program tape 
and the data (or presentation) tape in the 
4050 system tape drive. 

To make this modification, follow these 
instructions: 

1) Insert the Graph Plot tape in the 
system tape drive. Load file 1. 

2) Delete lines 80 through 95, and lines 
400 through 450. 

3) Enter the following lines of code: 



80 


I1=MEM0RY 




81 


CALL "UNIT",© 




82 


GOSUB Fl OF 84|86» 88^96 




83 


GO TO 96 




84 


APPEND "GRAPHPLOT/INIT' 


Mee 


85 


RETURN 




86 


APPEND "GRAPHPLOT/MANA' 


\\m 


87 


RETURN 




88 


APPEND "GRAPHPLOT/PRES' 


$180 


89 


RETURN 




90 


APPEND "GRAPHPLOT/DISP" 


$180 


91 


RETURN 




400 GO TO 68 





4) 



5) 



6) 



7) 

8) 
9) 



10) 

11) 
12) 



13) 



Now save the program on disk as 
"GRAPHPLOT/INIT" . 
Load the second file on the tape into 
the 4050 memory. If you do not 
have a binary program loader, load 
file 5 instead. 

Convert lines 6830 and 6840 to 'RE- 
MARKS', either by entering the line 
number and then 'REMARK' or by 
inserting 'REM' in front of the exist- 
ing statements. 

Save this program on the disk as 
' ' GRAPHPLOT/M AN A' ' . 
Load file 3 (file 6 for ASCII). 
Convert lines 590 and 600 and 5720, 
5730 to 'REMARKS' as explained in 
instruction 6. 

Save this program on disk as 
"GRAPHPLOT/PRES". 
Load fHe 4 (file 7 for ASCII). 
Convert lines 6230 and 6240 to 'RE- 
MARKS' as explained in instruction 
6. 

Save this program on disk as 
"GRAPHPLOT/DISP". 



To run the program, just enter: OLD 
"GRAPHPLOT/INIT" and then press 
return. You no longer have to worry 
about putting the program tape in the 
4050 drive. 
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Storing Strings in Arrays 



by Deedie Strandridge 

^ Phillips Petroleum Company 
Bartlseville, OK 



In research, it is often necessary to refer 
to a sample by a name rather than a 
number. This routine allows you to store 
a character string in an array and call it 
back later. 

The program converts a segmented char- 
acter of a string variable to ASCII and 
stores that number in a two dimensioned 
array (number of samples x maximum 
number of letters). Later, the program 
reads the array, translating the ASCII re- 
presentation back to a character. It can 
be used to print horizontal as well as 
vertical strings (with few modifications). 



199 REM *** STORE A CHARACTER STRING IN AN ARRAY 

lie iNiT 

129 DIM T<10,20) 

139 PAGE 

140 REM *** I =: NUMBER OF SAMPLES 

159 FOR I^l TO 10 

160 PRINT "ENTER A 20 CHARACTER DESCRIPTION OF THE SAMPLE. 
170 INPUT A* 

180 IF 1=1 AMD A$«"" THEN 410 

199 IF A$="" THEN 399 

299 L=LEN<A$) 

210 FOR J«l TO 20 

229 REM *** J « MAXIMUM NUMBER OF CHARACTERS 

239 IF J<=L THEN 269 

249 B$=" " 

259 GO TO 270 

269 B*«SEG<A$,J,1) 

279 T(I,J)«ASC<B$) 

289 NEXT J 

299 NEXT I 

399 K=I-1 

310 PAGE 

320 REM *** READ CHARACTER STRINGS FROM ARRAY AND PRINT 

330 FOR I«l TO K 

340 Afis"" 

350 FOR >1 TO 20 

360 B$«CHR<T(:i,J)) 

370 A$=A*8cB$ 

380 NEXT J 

390 PRINT A* 

490 NEXT I 

410 END 



Use DELETE to Initialize Symbol Table 



by Bill Finkenstadt 
Tektronix, Inc. 
Dayton, OH 
and Dan Taylor 
Tektronix, Inc. 
Wilsonville, OR 



One of the outstanding features of the 
4050 System is its dynamic memory 
management. This means the memory 
space to store arrays or dimensioned 
strings is not allocated until the respec- 
tive DIM command is executed.^ And a 
DELETE n statement frees all space al- 
located to n array or n string. Such dy- 
namic allocation allows you to use all 
available memory for your current data. 

When a program statement including a 
variable, i.e., DIM A$(100) or PRI B, 
etc., is translated^ by the 4050 System, 
the variable name is placed in the sym- 
bol table (if it isn't already there). When 



^Execution occurs when a program is RUN. 

^Translation occurs when a statement is keyed 

in (immediate mode), OLDed or 

APPENDed. 

^See your 4050 Graphic System Reference 

manual for how much space is required for 

variable names and Programming 

Tips, p. 49. 

^Be sure to leave space for the Status Stack 

(see Programming Tips pp. 21, 37^ 

45 and 83, and TEKniques Vol. 4 No. 6, p. 

22). 



the program is executed, the symbol ta- 
ble has already been initialized, thus, no 
more table space will be required for 
variable names. ^ 

However, suppose your program con- 
sists of several files which you'll be ap- 
pending during the course of execution, 
and those files contain code using new 
variable names. If you are approaching a 
full memory with your program and data, 
you may want to include all variables 
from all files in your symbol table at the 
beginning. Thus, you will know what 
memory is available for data without 
worrying about symbol table space taken 
later for incoming local variables (see the 
diagram for memory allocation).^ 

How do you assign variable names to 
your symbol table without the statements 



which use them? Simply, include code 
which DELETES them. The variable 
names in the DELETE statement will be 
assigned to the symbol table at transla- 
tion time, and the code need never be 
executed. 

1000 GOTO 2000 

1010 DELETE T1,T2 . . . 

1020 DELETE Wl, W2 



2000(use MEM to determine available 
space) 

This helps avoid MEMORY full prob- 
lems when those other files are AP- 
PENDed. 







(optional) 
dynamic 

must be shifted t every time item 
is added to Nametable 

never goes away except for 
OLD or DEL ALL 


System RAM ~2K 
communications work area 


~6K 


User program, arrays 
and strings 




Free Space 




Stack for 
evaluation, GOSUB, FOR . . 


.f 


Nametable 


t 



4050 Memory structure (conceptually) 
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Command Entry through POINTER Function 



by Chester M. Nowicki, EE 

Naval Air Development Center 
Warminster, PA 

The 4050 Series POINTER function lets 
you enter commands without pressing 
RETURN. This feature proves especially 
useful for implementing functions with a 
single keystroke. 

The sample main program occupies 
statements 100 to 220. The subroutine 
beginning at statement 500 fetches up to 
five consecutive keystrokes, but retains 
only the first four. However, single key - 
strokes may cause direct action. For ex- 
ample, control-C causes a restart of the 
entry sequence (line 560). Also, control- 
L automatically assigns a "PAGE" com- 
mand word to A^ and forces the 
subroutine to end (lines 600 to 620). 

The routine fetches keystrokes with C$, 
builds commands with A^, counts entries 
with N and tracks the cursor print posi- 
tion with X and Y. Variables A and B 
serve only to fulfill the requirements of 
the POINTER instruction. 

Statement 140 tests for an "END" com- 
mand that terminates the program. State- 
ment 150 accepts only commands that 
have four characters; unacceptable com- 
mand lengths force the re-entry of a 
command. Statements 170 and 180 test 
for and act upon the "PAGE" sample 
command. 

Alternate approaches to command de- 
coding could employ indexed lists of 
command words (strings or data state- 
ments), whereby a computed GOSUB 
would effect the required action. The 



program could handle invalid commands 
by printing an appropriate message, then 
branching to line 130 for command re-en- 
try. Of course, the instruction in state- 
ment 170 should branch to the statement 
for the command test routine (see re- 
marks in statements 190 and 200), unless 
it's incorporated within that routine. 

In case your program requires repeated 
entry and execution of commands, 
inserting GOTO 130 between statements 
210 and 220 would provide a continuous 
loop. As written, the main program ter- 
minates after entry of any four character 
sequence, as well as the "END" and 
"PAGE" commands. 

Of particular significance to the use of 
the POINTER command is that pressing 
RETURN assigns C$ the value of "" 
with zero length. If the program requires 



a carriage return, the programmer should 
provide this test: '^ \!! 



... IF C$<>" 


THEN 


(line 


nuMber 


of 


next 


ins 


traction) 


. . . C$»CHR<13) 














. . . (prograri 


continues) 













Statement 630 tests for the zero length 
condition of C$ for completion of com- 
mand entry as a consequence of pressing 
RETURN. This allows entry of com- 
mands shorter than four characters, e.g., 
"END"). Alternatively, character count 
N=5 automatically ends the subroutine 
and passes the previous four entries to 
the calling routine. Statement 620 effects 
the equivalent of a RETURN for the 
"PAGE" command, in response to the 
control-L keystroke. 



180 


DIM C$<1> 










lie 


PAGE 










129 


REM *** GO FETCH COMMAND 


STRING 








139 


GOSUB 500 










149 


IF A$="END" THEN 220 










159 


IF LEN<A$K>4 THEN 130 










169 


REM tU INTERPRET COMMAND STRING 


FOR ACTION 






179 


IF A$<>"PAGE" THEN 210 










189 


PAGE 










199 


REM *** IF COMMAND IHUALID, PRINT MESSAGEJ THEN 




209 


REM *** BRANCH TO 130 TO 


FETCH ANOTHER 






219 


PRINT 










229 


REM 










239 


END 










480 


REM *** THIS SUBROUTINE 


TAKES UP 


TO FIUE 






499 


REM *** KEY ENTRIES, BUT 


IGNORES 


THE LAST 






599 


PRINT USING V,10T,"" INPUT 4 CHARACTERS AND 


ANY 5TH 


ONE: "%S": 


519 


N=l 










529 


A**"" 










539 


GIN X,Y 










549 


POINTER A,B,C* 










559 


MOUE X,Y 










569 


IF C$="C" THEN 590 










579 


REM *** TEST ENTRIES TO 


EXCLUDE 


DR ACT UPON 


CONTROL 


CHARACTERS 


589 


REM *** BRANCH TO 540 TO 


IGNORE 


ENTRY, OR ASSIGN A 


PREDEFINED 


599 


REM *** COMMAND WORD TO 


PI*, THEN 


SET C$«"" 






699 


IF C$<>"L" THEN 630 










619 


A*«''PAGE'' 










629 


C*="" 










639 


IF H=5 OR LEN(C$)=0 THEN 


680 








649 


N=N+1 










659 


A$=A*8,C$ 










BSQ 


PRINT C*5 










670 


GO TO 530 










680 


RETURN 











_J 
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Transferring 468 Oscilloscope 
Waveforms from the 4924 to the 4050 



/^> by John Burgess and 
Pat Adamosky 
Tektronix, Inc. 

The GPIB -compatible 4924 makes an ex- 
cellent external storage medium for the 
468 digital oscilloscope. But 468 data is 
output in binary format, so the tapes 
cannot be read directly into the 4050 Ser- 
ies Graphic Computing System from its 
internal tape drive. The solution is to 
read the tape from the 4924 into the 4050 
through the GPIB. The following pro- 
gram will accomplish that task. 

The file header on the 4924 tapes is 
changed from "ASCII LOG," which is 
generated by the 4924, to "BINARY 
DATA." The 4050 then does a WBYTE 
@64 + D, 110:, which sets up the 4924 to 
send binary data to the 4050. The 4050 
will then display the transferred wave- 
form. 

NOTE: In the program, the primary ad- 
dress of the 4924 is designated as 4. 



im RIH PtOGH^H TO ilTREIME ^ND GiAPH ^ U^MEFOiH FtON TIC 4€8 m> 4fl4. 

lid ilN THE 468 Hf^S URITTEN A H^UEFORH TO ^ TAPE IN THE 4f24 IN TM.K- 

121 REH ONLY mt> LISTEN-ONLY RESPECTIMELY. fk 4924 IS M.SO NiCESSIIilY 

138 REN HERE TO RE^ THE Tf^PE'S f>AU. 

14i RiH 

198 REN by: JOHN BURGESSI DATE: 8-19-88 

168 REN LAST NOD: 8-2S-88 BY: JHB 

178 REN «—*— I— t SECTION TO READ BINARY DATA FRON 4924 $—$—$»-$ 

188 INIT 

198 REN t—i:— t— »— t CHANGE HEADER TO -BIHARY DATA" »— t— t— t— I 

288 REN THIS IS SO IT CAN BE READ BACK IN BINARY <T0 FAKE OUT THE 

218 REN "ASCII LOG" THAT THE 4924 HRITES AS ITS HEADER. 

228 PRINT "Mhat HU nuMbcr do you want: "I 

238 INPUT F 

248 PAGE 

298 PRIHT •4,8:8»8afl 

2€8 FIND t4:F 

2?i INPUT 84! At 

2ti At«fliP(»BINAflY DATA"»9>12> 

298 FIND t4SF 

388 Cti«aiR(13> 

318 AtNlitet 

iii Af«Af%"i' 

338 PRINT t4SAi 

3€8 RCN EN& OF PfHANtLi 18 DENOTED i¥ A ni (HiCIl 37>. 

388 REN TELL 4924 TO SEND ilNARY DATA FRON THE TAPE CNTAM* 806«I4> 

398 NiYTE 8«8fU8: 

408 RiYTE A 

418 IF A>98 THEN 738 

428 IF A«37 THEH 478 

438 A$«CHR(A) 

448 PRIHT All 

458 GO TO 488 

468 REN HON READ AND DECODE THE NUNBER OF POINTS TO BE SEHT 

478 RBYTE A 

438 P«256*A 

498 RBYTE A 

588 P'P+A 



510 PRINT 
528 PRINT 
538 PRINT 



JJTNERE ARE "jPr POINTS TO FOLLOH. PRESS <CR> TO PLOT. ■ 
PRESS <CR> AFTER PLOT FOR NEXT UAUEFORN FRON TAPE FILE." 

540 INPUT A$ 

550 REN NOM SET UP UINDOU AND PREPARE TO PLOT 

5€0 HINDOU i,P»8»25S 

570 REN NOME TO FIRST POINT 

580 RBYTE A 

598 NOUE 1,A 

688 FOR I«l TO P-2 

618 RBYTE A 

628 DRAU I»A 

638 NEXT I 

648 REN READ AND DISCARD CHECKSUN BYTE 

658 INPUT M 

668 PAGE 

678 R8YTE A 

688 RENS CHICK FOR END*OF-FILE 

698 T-TYP(8) 

788 REN: IF NEKT ITEN TYPE <> 1 THEN HOT EOF 

718 IF TOl THEH 488 

728 REN: IF END OF FILE. NO NORE MFNS. END PROGRAM 

738 RiN CLOSE TAPE FILE i RESET GPIB 

748 PRIHT "EHD-OF-FILE EHCOUNTERED. NO NORE UAUEFORNS ON TAPE FILE." 

758 PRINT 84,2: 

768 MBYTE 863 » 95: 

778 HONE 

788 END 
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Efficient Array Search 

by Ramon L. Hershman 

Navy Personnel Research and 
Development Center 
San Diego, CA 

Problem: A common prob- 
lem in business or scientific computation 
is locating a target value T in a numeric 
array A. Assume that, at most, one of 
the N members of A is equal to T. We 
seek an efficient scheme either to deter- 
mine that T does not exist or to extract 
its index in A. That is, the search should 
yield, say, S = if no A(I)=T or S = I 
where A(I) is the unique array member 
having the value T. 

Two possible search methods are: 

(A) Conventional Self- terminating Loop: 

Sequentially inspect each array member, 
terminating either when an A(I)=T is 
found or the loop ends without success. 
See lines 110-170 below. 

(B) Scalar/ Array Relational Comparison: 

This scheme exploits the powerful array 
operations of the 4050 Series. Lines 210- 
250 first execute a one-time-only load of 
the integers from 1 to N in the array W. 
Line 310 sets the array X either to or 
to N-1 zeros with X(I) = 1 where A(I)=T. 
Line 320 then sets X(I)=I if the target 
exists, and line 330 produces the index in 
S. 

Methods (A) and (B) were inserted in 
FOR/NEXT routines on the 4051 and 
timed with a hand-held digital stopwatch. 
For the self-terminating loop, execution 
time was 16 msec times the number of 
array elements to be searched. If S=0 all 
N elements must be searched, and the 
results in column 2 of the table are ob- 
tained. 

Execution times for Method (B) grow 
with slope —.0035 as N increases and are 
virtually independent of T's pres- 
ence/absence or its location in A. Results 
appear in column 3 of the table. Thus for 
S=0 the scalar/array comparison scheme 
is approximately 4 times as fast as the 
conventional search for moderate to 
large N and is more than twice as fast 
even for N=5. 

In the absence of other information, if T 
exists we expect S to average N/2. Meth- 
od (B) is then approximately twice as 
fast for moderate to large N. It also has 
the virtue that, for fixed N, its response 
time has nearly zero variance which is 
desirable for interactive applications. 



Users will note that the price of im- 
proved execution time is the added mem- 
ory requirements of the arrays W and X. 
However, if frequent searches of large 
arrays are required, the tradeoff should 
prove attractive. 






100 


REM Method 


A 


110 


S=0 




120 


FOR 1=1 TO 


N 


130 


IF A<I><>T 


THEN 160 


140 


S=I 




150 


I=N 




160 


NEXT I 




170 


END 




200 


REM Otie-Tine Load 


210 


DIM W<:N),X(N) 


220 


FOR 1=1 TO 


N 


230 


W<I)=I 




240 


NEXT I 




250 


END 




300 


REM Method 


B 


310 


X=A=T 




320 


X=X*W 




330 


S=SUM(X) 




340 


END 





4051 Execution Times in 


Seconds 




Method A 


Method B 


N 


S=0 


Alls 


5 


0.08 


0.03 


10 


0.16 


0.05 


25 


0.40 


0.10 


50 


0.80 


0.19 


100 


1.60 


0.37 


200 


3.20 


0.71 


400 


6.40 


1.37 



28 



Tekniques 
Vol. 5 No. 2 



Variable Format Field Modifier 



rx. 



by W.C. Wilkinson 

Space Antenna Techniques 
Princeton, NJ 



In many cases an image statement is 
needed which will format the printing of 
a row of values in which the number of 
columns is not known beforehand. That 
is, the number of columns is a variable. 
The format statement, 



IMAGE NC5D.2D) 



does not allow the field modifier, n, to 
be a variable. 

The following routine provides this capa- 
bility in which MO is the number of col- 
umns. 



lee 


U$=STR<M0) 






209 


U$'=Un«<5D. 


2D)' 




388 


PRINT USING 


u*; 


C9 



Now if MO = 5, statement 300 is 
equivalent to: 



300 PRINT USING "5(5D.2D)":C9 



The attached program demonstrates 
the use. 



100 REM PROGRAM TO DEMONSTRATE USE 


OF A LJARIABLE 






110 REM AS AN "t^" FIELD MODIFIER 








120 PRINT "JENTER NUMBER OF 


COLUMNS "J 






130 INPUT M0 










140 DIM C9(M0> 










150 FOR 1=1 TO M0 










160 C9(I)=SQR(M0+I) 










1?0 NEXT I 










180 U$=3TR<M0) 










190 U*=U$&"(5D.2D)" 










200 REM NOTE+ Uf IS NOW M0<:5D.2D) 


AND M0 IS THE "n' 


MODIFIER 




210 PRINT USING U$:C9 










220 DELETE C9 










230 END 










RUN 










ENTER NUMBER OF COLUMNS 5 










2.45 2.65 2.83 


3.00 


3.16 






RUN 










ENTER NUMBER OF COLUMNS 8 










3.00 3.16 3.32 


3.46 


3.61 3.74 


3.87 4,00 




RUN 










ENTER NUMBER OF COLUMNS 15 










4.08 4.12 4.24 


4.36 


4.47 4.58 


4.69 4.80 


4.90 


5.00 5.10 5.20 


5.29 


5.39 5.48 







Renumbering a Program 

by Dick Browne 
Tektronix, Inc, 
Philadelphia, PA 



TEKNIQUES Vol. 1 No. 7 described a 
system for renumbering a program so 
that subroutines began on even thou- 
sands. The following system would be 
simpler still. It assumes, like the earlier 
programming tip, that subroutines start 
on lines 230, 380, and 610, and the main 
program starts on line 100. Just use the 
following program: (In the example I use 
UDK #1, but any key will do. 



1 GO TO 180 




4 RENUMBER 1900, 


10,230 


5 RENUMBER 2000, 


10^380 


6 RENUMBER 3000, 


10^610 


7 END 





Pressing the UDK then renumbers 
everything in one step. With this system, 
a program "under construction" can be 
quickly and repeatedly renumbered with- 
out changing starting points of subrou- 
tines. 

Going one step farther, instead of num- 
bering 4,5,6,7, you could number the 
above program 4,8,12,13. Then, by 
pressing the appropriate key, you would 
only renumber the portion of the pro- 
gram you are working on, plus restoring 
following subroutines to their proper 
starting point. 

Also, suppose you are working on the 
subroutine starting at step 2000. After 
the last REN statement, you might want 
to add 



7 


PAGE 






8 


LIST 


2000 


2999 


9 


END 







to list the part of the program you are 
working on. Or, these steps could be as- 
signed to another UDK. 
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Displaying Refreshed Questions 



by Charles Otis Sweezey 

Department of Theater & Dance 
Southern Illinois University 
Edwardsville, IL 

There are times when you need ques- 
tions to appear on the CRT while graph- 
ics are being displayed. The questions 
might relate to the graphics, for instance, 
and as they are answered more graphics 
are superimposed. A problem arises 
when you try to write a program to allow 
the questions to appear on the screen 
without having the screen "cleared" and 
the graphics lost when another question 
is needed. 



This program makes use of the "Print 
@32,24:" command which allows a num- 
ber, letter, or symbol to appear on the 
screen without storing on the display. 
When the program is enacted, the com- 
puter prints "Question: #" on the 
screen for a count of 25. At the end the 
"1" disappears. A row of "*" covers up 
the input. When another question is 
needed, "A" is given the value of "2" 
and a subroutine starting at line 500 
causes the "Question: #" to blink with 
the "2" disappearing at the end. 

Using a card to list which numbers relate 
to which questions the operator can run 



his program and answer needed ques- 
tions. Question numbers disappear when 
the question is answered, and that 
answer is covered by "*'s" so that he 
isn't confused when his next question is 
asked. The program is shown below. 



i@@ 


A-1 




lie 


GOSUB 


588 


288 


END 




588 


FOR D«l TO 25 | 


518 


HOME 




528 


PRINT 


"QUESTION S «G« 


538 


MOUE J 


M,98 


548 


PRINT 


532,24: ""1 A?"" 


558 


NEXT 


) 


568 


8,96 




578 


PRINT 


''ttttntt" 


588 


MOUE 


J, 96 


598 


INPUT 


A$ 


688 


RETURN 



Plot Rotation on the 4662 Plotter 



by Jerry W. Anderson 
Phillips Petroleum Co. 
Bartlesville, Okla 

Occasionally you may wish to rotate a 
4662 plot from an existing plot program. 
Of special interest would be a 90° rota- 
tion so the long side of the graph paper 
may be used as a "vertical" direction. 
However, you can't make a rotation 
(other than 180°) by simply using the 
SET buttons on the plotter. But you may 



by inserting the following code in your 
program: 



101 SET DEGREES 
192 PRINT @D,25:90 
105 REM D is device « 



In addition, change all occurrences of 
the following statements: 



FROM 

WINDOW X1,X2,Y1,Y2 
IJIEWPORT X1,X2,Y1,Y2 



TO 

WINDOW Y1,Y2,X1,X2 
UIEWPORT Y2,Y1,X1,X2 



Also, all graphics commands must have 
their arguments switched. For example, 
MOVE @D:X,Y becomes MOVE @D: 
Y,X and RMOVE @D:0,1 becomes 
RMOVE @D:1,0. These changes may be 
done easily using the Editor ROM. 



Programming Tip Exchange 



51/00-0720/0 
51/00-0902/0 
51/00-1203/0 
51/00-1605/0 



51/00-5506/0 
51/00-6102/0 

51/00-6109/0 
51/00-8028/0 

51/00-8032/0 



Machinery Cost Analysis 51/00-8039/0 
Calendar Routines (7 Day) 
Planimeter 51/00-9516/0 

Shear and Moment Dia- 51/00-9527/0 

grams for Determinate 51/00-9534/0 

Beams plus 

3-D Function Plot 51/00-7004/0 

Hewlett Packard I/F Pack- 
age 

Inventory File System 
Change & List Program 
Variables 

Device Address Adding 
Program 



Tape File Header Expan- 
der 

Advanced Media Graphics 
3-D Transformation 
Q-Plot 

Programming Tips ^) 



) 
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4050 Series Applications Library Program Abstracts 

Order Contribute 



Documentation and program listings of each program are 
available for a nominal charge. Programs will be put on tape or 
disk for a small recording fee per program plus the charge for the 
tape cartridge or flexible disk. One tape I disk will hold several 
programs. Programs will be recorded on like media only, i.e., 
programs on tape cannot be sent on disk and vice versa unless so 
noted in the abstract. 

(The program material contained herein is supplied without 
warranty or representation of any kind. Tektronix, Inc. assumes 
no responsibility and shall have no liability, consequential or 
otherwise, or any kind arising from the use of this program material 
or any part thereof.) 

Domestic U.S. Prices: 

Documentation and Listing only $25 per program 

Documentation, Listing and Recording Fee 30 per program 

Tape Cartridge 36 per tape 

Flexible Disk 15 per disk 



Contribute one program to the Library and receive three in 
exchange. Send in the membership card from your 4050 Series 
Graphic System Reference Manual to get the details. Or call us 
(503) 685 3618. 

Forms 

Please use the Applications Library Order Form. Order forms 
are included in the Membership Packet and are available from your 
local Tektronix Sales Engineer. 

Outside U.S. 

Program contributions or orders outside the U.S. must be processed 
through the local Tektronix sales office or sent to one of the Libraries 
serving your area. See Library Addresses section. 



Applications Library Program Ordering^ Distribution to be Simplified 



The 4050-Series Applications Library 
now contains well over 200 user-supplied 
programs. Several hundered copies of 
these programs are requested by Appli- 
cation Library members each month. 

We've noted a very distinct pattern in 
these orders — when a member orders 
one program in an application area, he 
usually orders several in that area. 



Using this fact as a guide, we are group- 
ing like-subject programs to fill single 
tapes or disks. We plan to bind together 
the appropriate documentation for each 
program on the tape or disk and offer the 
package at a savings over the price of 
the individual programs. You'll be able 
to order several programs by ordering 
one part number and save some money. 



We're in the process of making the con- 
version now. We plan to distribute a new 
Library catalog in mid- summer that will 
detail the packages and the ordering pro- 
cedure. Until then, you may order indi- 
vidual programs as before. 



Correction to 
ABSTRACT #51/00-1602/0 

Title: Interactive Beam Analysis 



Delete line 1295 in 


File 1 




1295 


IF ABS 


>(K2(N) 


X1.0E-20 THEN 1480 




Delete line 4270 in 


File 2 




4276 


IF ABS(K2(K))<i.0E-20 THEN 4275 




Change File 1 






Old 


1298 


PRINT 


"Enter Weight Monent of Inertia, 


*IRt2 ("|K$J"> =" 


New 


1297 


PRINT 


"Enter Weight Monent of Inertia about a dianeter of disk" 


New 


1298 


PRINT 


"or elenent, W*Rad.Gyr. t2<"fK$5 " > 


= "5 


Old 


6390 


Tl<3,2>=H*I2(N)*Wt2+K2<N) 




New 


6390 


Tl<3,2>=H*I2(N)*Wt2/G+K2(N) 




Change File 2 






Old 


4272 


PRINT 


"Weight Monent of Inertia <WRt2> 


about a" 


Old 


4273 


PRINT 


"dianeter of disk or elenent .... 


= "5 


New 


4272 


PRINT 


"Weight Monent of Inertia about a 


dianeter" 


New 


4273 
4984 


PRINT 
PRINT 


"of disk or elenent (W*Rad. Gyrt2> 
"Present Weight Monent of Inertia 




Old 


<WRt2) = "; 


New 


4984 


PRINT 


"Present Weight Monent of Inertia 


(W*Rad.Gyr.t2)..= "s 


Old 


4986 


PRINT 


"Enter new Weight Monent of Inert 


ia (WRt2)="; 


New 


4986 


PRINT 


"Enter new Weight Monent of Inert 


ia (W*Rad.Gyr.t2:'= "5 
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ABSTRACT #: 51/00-0604/0 

Title: Loan Schedule for Budgets and 
Taxes 

Author: Joe Flicek 

W.R. Grace & Co. 

New York, NY 
Memory Requirement: 8K 
Statements: 85 
Files: 1 ASCII Program 

This program computes a monthly loan 
schedule with totals for desired budget 
and/or tax periods. The loan schedule 
displays for each month of the period the 
following items: 

interest charge 
principal payment 
total loan payment 
ending loan balance 

The display also includes the beginning 
and ending balances, and the total inter- 



est charges, total principal payments, 
and total loan payments for the period 
covered by the loan schedule. 

User prompted input: 

beginning loan balance for budget/tax 

period 

interest rate of loan as a decimal 

monthly payment on loan 

number of months covered by period 

year of budget/tax period (final two 

digits) 

For loans that extend over more than 
one budget or tax period, the program is 
rerun for each period. The ending loan 
balance of the first budget or tax period 
becomes the beginning loan balance of 
the second period and so forth. 



LOAN SCHEDULE FOR BUDGETS PHD TAXES 




USER PROMPTED INPUT FOLLOWS BELOW: 




INPUT BEGINNING LOAN BALANCE 


20080 


INPUT INTEREST RATE AS DECIMAL 


.148 


INPUT MONTHLY LOAN PAYMENT 


300 


INPUT NUMBER OF MONTHS FOR PERIOD 


12 


INPUT YEAR OF LOAN SCHEDULE (TWO DIGITS) 


81 



LOAN SCHEDULE FOR 1981 






Beaimi 
MONTH 


ng Loan Balan 
Interest 


e * 


20000.00 


Ending 


Principal 


LOAN 


-YEAR 


Charge 


PayMent 


Paynent 


Balance 


1-81 


246.67 


53.33 


300.00 


19946.67 


2-81 


246.01 


53.99 


300.00 


19892.68 


3-81 


245.34 


54.66 


300.00 


19838.02 


4-81 


244.67 


55.33 


300.00 


19782.69 


5-81 


243.99 


56,01 


300.00 


19726.67 


6-81 


243.30 


56.70 


300.00 


19669.97 


7-81 


242.60 


57.40 


300.00 


19612.57 


8-81 


241.89 


58.11 


300.00 


19554.45 


9-81 


241.17 


58.83 


300.00 


19495.63 


10-81 


240.45 


59.55 


300.00 


19436.07 


11-81 


239.71 


60.29 


300.00 


19375.78 


12-81 
Total 


238.97 

2914.75 


61.03 


300.00 
3600.00 


19314.75 


685.25 


Ending 


Loan Balance 


$ 19314.75 









ABSTRACT #: 51/00-0605/0 

Title: Mortgage Amortization 

Author: Ronald C. Robinder 

Tektronix, Inc. 

Beaverton, OR 
Memory Requirement: 8K 
Files: 1 ASCII Program 
Statements: 62 

The program will calculate an amortiza- 
tion table for loans such as home mort- 
gages. 

You are prompted for the term of the 
loan, the principal amount, and the inter- 
est rate. 

The program will return with the month- 



ly payment. A pause allows you to inter- 
act for correction, copying, or 
terminating the execution. 

After the pause, the program will display 
the repayment schedule in two year seg- 
ments. A pause between each page al- 
lows you to copy, restart, quit or contin- 
ue. 



HOW LONG (IN YEARS) IS THE LOAM? 12 
HOW HUGH IS BEING BORROWED? 20009 
HOW HIGH IS THE INTEREST (IN 'O? 14.8 
YOUR MONTHLY PAYMENT WILL BE $ 297.61 



MONTH PRINCIPAL 


INTEREST 




BALANCE 


1 i 


50.94 




246.67 




19.949.06 


2 i 


51.57 




246.04 




19,897.49 


3 : 


52.21 




245.40 




19,845.28 


4 


f 52.85 




244.76 




19,792.43 


5 


53.50 




244. 11 




19,738.93 


b 


54.16 




243.45 




19,684.77 


7 


54.83 




242.78 




19,629.94 


8 


55.51 




242.10 




19,574.43 


9 i 


56.19 




241.42 




19,,518.24 


10 i 


56.89 




240.72 




19', 461. 35 


11 


57.59 




240.02 




19,403.76 


12 


: 58.30 




239.31 




19,345.46 


13 


: 59.02 




238.59 




19,286.44 


14 


: 59.74 




237.87 




19,226.70 


15 


; 60.48 




237.13 




19,166.22 


16 


: 61.23 




236.38 




19, 104.99 


17 


: 61.98 




235.63 




19,043.01 


18 


: 62.75 




234.86 




18,980.26 


19 


P 63.52 




234.09 




18,916.74 


20 


; 64.30 




233.31 




18,852.44 


21 


: 65.10 




232.51 




18,787.34 


22 


! 65.90 




231.71 




18,721.44 


23 


i 66.71 




230.90 




18,654.73 


24 


f 67.53 




230.08 




18,587.20 



ABSTRACT #: 51/07-0717/0 

Title: 4907 MIPS — A Management 
Information Processing System 

Author: Jim Dillion 

Tektronix, Inc. 
Santa Clara, CA 
Modified by: L.C. Sheppard 

Sheppard Software 
Company 
Sunnyvale, CA 
Memory Requirement: 32K 
Peripherals: 4907 File Manager 
Statements: 928 
Files: 2 Program 

Requires data disk 



MIPS contains two programs: One for a 4. 
12 period fiscal year and one for a 13 
period fiscal year. The following modifi- 5. 
cations have been made to the 12 period 
program: 6. 

1. Excess code removed to save mem- 
ory. 7. 

2. Individual disk file setup changed to g 
a single, large random access file 
where one record is equivalent to 
the old MIPS "file." 9. 

3 . The fixed number of MIPS files was 
changed to allow from 1 through 300 
with a default of 100. 



The 4907 clock may be set. 

Any disk unit may be used. 

Tabular data may be sent to the 
screen, plotter or printer. 

Graphic data may be sent to the 
screen, or plotter. 

Prompts for data show a specific 
format if required. 

The multicurve graph was altered to 
always put the fiscal year line defini- 
tion in the upper left corner of the 
graph, instead of the lower right or 
upper left. 



.y" 
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10. This version consistently reflects 
that it handles 12 accounting periods 
instead of 13. 

1 1 . Prompts for subfiles are more infor- 
mative. 

12. Changes in new disk creation. 

13. MIPS will automatically store itself 
on each new disk. 

14. The program may be sent to user on 
tape (no disk only restriction). 



MYSTERY DISTRICT - PRODUCT XXX 
COMPARISON REPORT ~ ORDERS US 

■""■"■ 


SALES 
TARGET 


ORGANIZATION 






MONTH ORDERS 


F.Y76~ 
TARGET 


MONTH 
DIFF 


MONTH 


76eeYTD 
ORDERS 


'4r.[\' 


YTD 
DIFF 


YTD 


1 351234 


420808 


-68766 


83.63 


351234 


420000 


-68766 


83.63 


2 451825 


420088 


31025 


107.39 


882259 


840880 


-37741 


95.51 


3 1295412 


428088 


785412 


287.88 


2887671 


1268080 


747671 


159.34 


4 456235 


428088 


36235 


188.63 


2463906 


1680880 


783906 


146.66 


5 365235 


420088 


-54765 


86.96 


2829141 


2100880 


729141 


134.72 


6 298565 


420008 


-121435 


71.09 


3127786 


2528808 


607786 


124.12 


7 95865 


458880 


-354135 


21.38 


3223571 


2970008 


253571 


108.54 


8 546213 


450000 


96213 


121.38 


3769784 


3420000 


349784 


118.23 


9 156235 


458000 


-293765 


34.72 


3926819 


3870000 


56819 


101.45 


10 254654 


450888 


-195346 


56.59 


4188673 


4320000 


-139327 


96.77 


11 852345 


450008 


402345 


189.41 


5033018 


4778888 


263818 


105.51 


12 265845 


450080 


-184155 


59.88 


5298863 


5228800 


78863 


101.51 






J 



ABSTRACT #: 51/00-1408/0 

Title: Failure Rate Analysis 

Author: W. E. Price 

Computer Sciences Corp. 

Atlanta, GA 
Memory Requirement: 32K 
Peripherals: Optional — 4662 Plotter 
4642 Printer 
Files: 1 ASCII Program 
Statements: 892 

Failure Rate Analysis determines either a 
subsystem's or a subassembly's reliabili- 
ty and total mean time to failure (MTTF) 
during a specified operating time. You 
may choose from three types of analysis: 

Parts Count Prediction 

Part Stress Analysis with Redundant 

Circuits Only 

Part Stress Analysis with Redundant 

Subassemblies and Circuits 

Parts Count Prediction. In the early stages 
of development, parts count prediction 
can be used to produce ' 'ball park' ' values . 
Data preparation is simple and the opera- 
tions within the program are not complex. 

Part Stress Analysis with Redundant 
Circuits Only. Most of the subassemblies 
are not redundant, therefore, this allows 
you to calculate the failure rates in a mode 
where you can only be concerned with 
redundant circuits. 

Part Stress Analysis with Redundant Sub- 
assemblies and Circuits. When redundant 
subassemblies do exist, this section auto- 
matically calculates the subassembly 
failure rate as it does in Part Stress 
Analysis (above) and quantifies it before 
calculating the total subsystem data. 

The program prompts you. for general in- 
put: 



FAILURE RATE ANALYSIS 

Do you uatit the data printed on the 
<e) SCREEN or the <1) PRINTER? 

Enter the nunber of file in which you last stored data: 5 

CHOOSE the TYPE of ANALYSIS: 

8. PART STRESS ANALYSIS with Redundant Circuits only 

1. PARTS COUNT PREDICTION 

2. PART STRESS ANALYSIS with Redundant subassewbly & circuits 

CHOOSE the procedure: O 

uttunut 

PART STRESS ANALYSIS 
How nany subasscMtal ies will be calculated? 6 



*** SUBASSEMBLY ChLCULATIOH Ut 

Enter the nunber of locations at 
which Subassembly #1 will exist: 13 

Are theses initial calculations? y 

Subsysten: POWER 
Assenbly.-'SubasseMbly: 7.5 or 29 KUA UPS 
INPUT Operating Hours: 476 

***** 
How nany Circuits/LRU's are there? 25 
Do you need to enter old coriponent values? N 

Circuit#l; Rectifier Leg 
How nany conponents are there? 1 

The Failure Rate for this circuit will be calculated using 

1. INSPECTION FORMULAS 

2. REDUNDANCY FACTORS 

3. NO REDUNDANCY 

4. REPAIR RATE FORMULAS 

CHOOSE the procedure: 3 
Enter this circuit's quantity; 1 
Is this a <9) MICROELECTRONIC or a 
<1> REGULAR ELECTRONIC DEUICE? 1 

Conponent til 

HON MICROELECTRONIC DEUICE 

Enter Q<Quantity>: 1 

Enter B8<Base Failure Rate): 4.642 

Enter the nunber of Applicable Paraneters for this device: i 

Enter (1) if you want a plot for this 
circuit's data or enter a (0) if not! 1 
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Number of subassemblies 
Number of locations per subassembly 
. Subsytem name 
Assembly/subassembly name 
Operating hours 
Number of circuits/LRU's 
Circuit name 

Number of components per circuit 
Procedure to use: 

Inspection formulae 

Redundancy factors 

No redundancy 

Repair rate formula 
Circuit's quantity 

The component calculation depends 
upon the type of analysis that has been 
selected. Parts Count Prediction deter- 
mines the failure rate using this formula: 

F =Xg-7Tq* Q (FAILURE RATE) 

Where, 

Xq = Generic Failure Rate 

77- Q = Quality Factor 

Q = Quantity 

Part Stress Analysis determines the 
failure rate for each part from one of 
these equations: 

1. Non Microelectronic Parts 

F= XbX( tt's) xQ (FAILURE RATE) 

Where, 

Xb= Base Failure Rate 

tt's = Parameter Values (i.e. Quality 
and Stress Factors) 

Q = Quantity 

2. Microelectronic Parts 

F = Xp X Q (FAILURE RATE) 

Where, 

Q = Quantity 



and 

77 l: Learning Factor 
77 o: Quality Factor 
77 e: Environmental Factor 
77 p: Pin Factor (Nonlinear devices on- 
ly) 

Ci: Failure Rate #1 
C2: Failure Rate #2 

If data is available for. a partially com- 
plete circuit analysis, the program will 
prompt you for the total failures/million 
hours for the completed components so 
they won't have to be calculated again. 

The circuit calculation is a collection 
process of all the component values. Af- 
ter each component's failure rate is cal- 
culated, it is added to a continuous sum 



of the failure rates. When the total fail- 
ure rate is found for the circuit, it is used 
to find that circuit's reliability and 
MTTF. 

A Reliability vs. Time plot may be had 
for every circuit analysis, and for a Part 
Stress Analysis after the total Subsystem 
data has been determined. A single term 
Poisson Distribution of a reliability may 
be asked for at the end of the analysis 
after the total subassembly or subsystem 
data has been calculated. 

The Parts Count Prediction circuit data 
and subassembly data may be stored on 
tape. Part Stress Analysis subassembly 
data and the total subsystem data may 
also be stored on tape. You may also 
have stored data printed. 



FAILURE RATE CONUERSIOH AND PROBABILITV OF SUCCESS UALUES 
Based on Part Stress Analysis 

FQilures/hour= 4,042E-6 

FQilurcs/ycQr= 9.03540792 

OperatiTig Hours: 476 

Probability of Survival/Success: Ps « e-0. 901923992 

P = 9.998977857686 

Meat) Tine To FaiUn): 247492,276191 
TOTAL CIRCUIT DATA 

Unit Failure/nillion hours- 4.042 

Iten Quantity: 1 

Total Failure Ratc= 4.942 

Reliability: 0.998977857686 PO"ER 

Mean Tine To Fail: 247402,276101 "-5 ""^ 
Subsysten: POWER 1 


RELIABILITY vs. TIME 

Lanbda= 4,042E-6 Fai 1 uras-'hr, 
20 KUA UPS Subassenbly Circuit HI: Rectifier Leg 




Assy./Subassy.: 7.5 or 20 KUA UPS 

Circuit «l: Rectifier Leg - _ 
HON REDUNDANT CIRCUITS ^'^ 

8.8 

R9.7 

^9.6 

80.5 
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^0.4 
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4.95E+005 7.42E+095 9.90E+005 1,24 
TEST TIME (HOURS) 



ABSTRACT #51/00-1607/0 

Title: Beam Analysis II 
Authors: Y.W. Luk 

Larry D. Mitchell 
Virginia Polytechnic Inst. & 
S.U. 

Mechanical Engineering Dept. 
Blacksburg, VA 
Memory Requirement: 32K 
Peripherals: 4051R05 Binary Program 
Loader 

4051R01 Matrix ROM 
Files: 6 Binary Programs 

2 Binary Data (examples) 
Statements: 1,661 



One of the most frequently encountered 
engineering designs is beam because it 
can be used for modeling many struc- 
tures. This program, using Transfer Ma- 
trix Method, provides the following anal- 
yses for an undamped beam system: 

1. Free vibration (eignevalue — 
eigenvector) 

2. Static Response 

3 . Forced dynamic response at a particu- 
lar frequency 

4. Frequency response at a point along 
the beam 



5. Animation of beam motion in the dy- 
namic case 

This program computes and plots the 
curves of deflection, slope, moment and 
shear along the beam for all four analy- 
ses listed above. Beams of uniform or 
variable cross-section can be entered. 
Uniformly or linearly-varied distributed 
loads, concentrated point loads, applied 
moments or combinations of all three 
may be applied to static, forced dynamic 
or frequency response analysis. It also 
allows any combination of pinned, fixed, 
free or guided flexural boundary condi- 
tions, even normally kinematically unsta- 



J 
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ble conditions can be handled if suffi- 
cient internal supports are provided. In- 
span support can be elastic springs 
and/or elastic moment spring. Static in- 

/fA determinary to any order is handled. 

\ y Modeling for dynamic responses uses 
lumped mass. In the dynamic case, the 
beam motion can be animated in time 
and space. 

All the input data can be stored on the 
tape and recalled for future use. It also 
provides the option of using either En- 
glish or SI units. 

Program limitations 

This program has the following limita- 
tions: 

1. It handles only undamped beam 
system. 

2. It will not handle rigid in-span 
indeterminate supports but they can 
be approximated by assigning a large 
value for the stiffness or rotary stiff- 
ness of the supports, e.g., 1 x 10^^ 
lb/in or N/m, or 1 x 10^^ Ib-in/rad or 
N-m/rad. 1 x lO^^ seems to be the lim- 
it for a beam having 5 sections before 
numerical difficulty is encountered. 



3. The system must be loaded within the 
elastic range. 

Conclusion 

This interactive computer-aided analysis 
routine is almost unlimited in the com- 
plexity of multi-supported and load beams. 
It is much easier to use than other "can- 
ned" computer programs, especially those 
that are written for a batch environment; 
i.e., computer cards are used as input and 
line printer as output. It has error feed- 



back, structure verification and graphical 
output. All these enable the user to enter 
the data correctly and get the correct 
result in a short time. 

This program is much more powerful 
than Interactive Beam Analysis, applica- 
tion library program #51/00-1602/0; how- 
ever, that program does a couple of 
things that Beam Analysis II doesn't, 



Drawing of the Bean 



DATA 

For 

Lerig 

liodu 

Area 

Magri 

Magn 

Stif 



V^^ 



section #1: 

th of this section = 1.0800E+001 in 

lus of Elasticity = 3.0000E+007 psi 

MoMent of Inertia.. » 4.7000E+000 int4 

itude of unifornly distributed load....« 1.0000E-f002 lb/in 

i tude of Monent =-1 . 0000E+004 1 b-in 

fness of Support = 2.8200E+005 lb/in 



For section #2: 

Length of this section = 2.0000E+001 in 

Modulus of Elasticity » 3.0000E+007 psi 

Area Monent of Inertia = 4.7000E+000 int4 



*** Continue with User Definable Key *** 



ABSTRACT #: 51/00-1608/0 

Title: Fatigue Analysis 
Authors: Y.W. Luk 

Graduate Student 

L.D. Mitchell 

Professor 

Virginia Polytechnic Inst. 

&S.U. 

Mechanical Engineering Dept. 

Blacksburg, VA 

Memory Requirement: 22K 
Files: 1 ASCII Program 
Statements: 568 



Machine members are often found to 
have failed under the action of repeated 
or fluctuating stresses, and yet an analy- 
sis reveals that the actual maximum 
stresses were below the yield strength. 
These failures usually are from stresses 
repeated for large number of times. This 
i failure is called a fatigue failure. 

There are many theories that predict the 
fatigue failure. The six most generally 



accepted are: modified Goodman frac- 
ture line, modified Goodman yield line, 
Soderberg line, Gerber line. Quadratic 
line, and Kececioglu line. These six fail- 
ure Hues are available in the program to 
size failure. Any equivalent stress theo- 
ries are allowed. It can also compute the 
significant endurance limit with the theo- 
retical stress concentration factor and 
other physical and environmental param- 
eters supplied by the user. 



Input Data Required. Units can be either 
in EngHsh or SI system. The following 
data are needed: 

1 . Ultimate tensile strength of the 
material, psi or Pa. 

2. Yield strength of the material, psi or 
Pa. 

3 . Significant endurance limit, psi or 
Pa. 

4. Moment causing alternating stress, 
Ib-in or N-m. 

5. Moment causing a steady stress, Ib- 
in or N-m. 

6. Alternating axial force, lb or N. 

7. Steady axial force, lb or N. 



8. Alternating torque, Ib-in or N-m. 

9. Steady torque, Ib-in or N-m. 

10. Safety factor, dimensionless. 

11. Lower limit of the dimension, in or 
m. 

12. Upper limit of the dimension, in or 
m. 

If the significant endurance limit is not 
known, the following physical and envi- 
ronmental parameters are required for 
computing the significant endurance lim- 
it. 



13. 
14. 
15. 
16. 

17. 
18. 
19. 
20. 
21. 

22. 
23. 



24. 



Type of surface finish. 
ReHability, %. 

Operating temperature, °F or °C. 
Theoretical stress concentration fac- 
tor. 

Notch sensitivity factor (optional). 
Notch radius (optional), in or m. 
Type of material. 
Type of loading. 

Miscellaneous effect factor (option- 
al). 

Shape of cross section. 
Endurance limit for R.R. Moore 
rotating beam specimen (optional), 
psi or Pa. 
Number of cycles. 
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The following example concerns a rotating shaft of 
circular, machined steel. The input data details its 
parameters. 



The Failure Line on which this chart is based is 
the Modified Goodman Fracture Line. 



Do aou wat^t to use English Units? <Y or N)Y 

He will use English Units throughout this routine. 

Please enter the strength of the material to be used. 



Tensile Strength? in psi* Su 
Yield Strength* in psi, Sy 



2ee8ee 
iseeea 



Do you know the Significant Endurance LiMit of the Material? (Y or N)N 

This section of the progran will calculate the Significant 
Endurance Linit. 

Enter the # for the types of surface finish used. 

tl for polished finish. 

#2 for ground finish. 

#3 for Machined or cold drawn. 

#4 for hot rol led. 

#5 for as forged. 

What is the reliability in 'AlSS 

What is the operating tenperature in Degree F ?190 

Do you know the Theoretical Stress Concentration Factor <Kt>?Y 
Theoretical Stress Concentration Factor « 2.5 

Do you know Notch Sensitivity (q)? <Y or N)N 
What is the notch radius in inches?0.02 

Is the Material steel? (Y or N)Y 

Is it under bending or axial loading? <Y or N)Y 

Is there any niscel laneous-ef fee t factor? <Y or N)N 

The S-N curve is used for this deternination. 

A Log-Log or a Log-Linear S-N curve will be used. 

The finite life region is 0.9*Su (?1E3 cycles to Se"" @1E6 cycles. 

What Method do you want to use for conputing the 

Significant Endurance Linit (Se'"'"')? 

Enter #1 for Log-Log Method. 

Enter #2 for Log-Linear Method. 

1 

Is the cross section circular? (Y or N>Y 

Do you know the Endurance Linit <Se') for rotating-bean 

speciMen? <Y or N)N 

Is the design life infinite? <Y or N)N 

NuMber of cycles « 500908 

You will now be requested to supply the PARAMETRIC DESIGN STRESS 

EQUATIONS for your design probleM. 

You Must write these equations in BASIC. Use the following instructions. 

If you are unfamiliar with the development of such equations* 

see user's guide and its appendix for guidance. 

Enter component loads starting with line 6000 incrementing by 10's. 

Use Ml=MoMent taUiiDS alternating stress <1b-in). 

Use M2=MoMent £fl!iiiD3 Q steady stress <lb-in). 

Use Fl=An alternating axial force <lbf)i 

Use F2=A steady axial force (lbf>. 

Use Tl=An alternating torque Clb-in)". 

Use T2=A steady torque (Ib-in). 

Use N=Safety factor. 
Enter the numeric value for each of the variables used in 
your stress equations. 
Do this before you enter your stress equations. 

Enter your stress equations starting with line 6100 
incrementing by 10''s. 

Use A1=A1 ternating stress. 

Use A2=Mean stress. 

Use PI=Pi. 

Use D=Basic dimension. N.B., All dimensions should be give'/) in terms of 

D. In case of rectangular component? use proportions. 
After your stress equations are entered? type a numbered return 
statement. Then type run 600. 

EXAMPLE. 

The following equations are in English Unit. 

6000 T2=1200. 

6010 Ml=2400. 

6020 N=1.8 

6100 Al=N*Ml/<PI*Dt3/32) 

6110 A2=0.866*N*T2/<PI*Dt3/32> 

6120 RETURN 

RUN 600 

6000 T2=1200 

6010 Ml=2400 

6020 N=1.8 

6100 Al=N*Ml/(PI*Dt3/32) 

6119 A2=0 . 866*N*T2/ < P I *Dt3/32 > 

6120 RETURN 
RUN 600 

Select the fatigue failure line to be used in the design. 

If Modified Goodman Fracture Line* enter MGF 

If Modified Goodman Yield Line? enter MGY 

If Soderberg Line? enter S 

If Gerber Line? enter G 

If Quadratic Line* enter Q 

If Kececioglu Line* enter K 

MGF 

The Failure Line selected is Modified Goodman Fracture Line. 

The failure equation is (Sa/(R2*Se"' Otm ■♦• (Rl*Sm/Su)tp = 1. 

where M=l 

where P=l 

where Rl=l 

and where R2=l 

Do you wish to change any parameters? <Y or N)N 

The following entries will establish the limits on a Half 
Interval Search for the solution to your problem. 
What is the smallest basic dimension that you wish to try? 
Give your answer in inches. Do not answer 0.0. 0.01 
What is the largest dimension) in inches? 10 



Tensile Strength, Su - 200,308 psi 

Yield Strensth, Sy = 150,000 psi 

Significant Endurance Linit, Se'' '•'('500000 cyc.= 21,395 psi 

Snallest dimension tried = 0.01 inches 

Largest dimension tried = 10.00 inches 

Sofety Factor, N = 1,80 

Monent causing alternating stress. Ml = 2,400.00 Ib-in 

Steady torque, T2 = 1,200.00 Ib-in 

The following factors are used for conputing Se"': 

Surface factor (Ka) = 0.64 

Size and shape factor (Kb) » 0.81 

Reliobility factor (Kc) = 0.81 

Tenperature factor <Kd) = 0.95 

Fatigue Strength Reduction factor <Ke;'= 0.42 

Miscellaneous factor c.Kf) =1.09 

Endurance Linit for Rotating-bean Specinen (Se')= 100,000 psi 

Significant Endurance Linit for infinite life <Se' ' >= 16, 9S0 psi 

The Failure Line selected is Modified Goodrian Fracture Line. 
The failure equation is (Sa/'i:R2*Se' ■'■')tr'i + (Rl*Sn.--Sunp= 1. 
where M=l 
where P=l 
where Rl=l 
and where R2=l 

The design diriension is 1.2911 inches 

tttt%t%tt%tt%t%%t%U%tt%%%t%%%%tt%Ut%%%t%t%Uttttttt%tt%%%%%iit 

Do you wish to convert the design dinensionto SI unit?iY ar H)Y 

The design dinension is 0.0328 ci 



Using the same input data, the component is re- 
designed by the other five fatigue failure lines. A 
similar chart is displayed for each Failure Line. 
All six results are listed in the following table for 
comparison . 

Type of Failure Line used Design Diameter 



in 



m 



Modified Goodman fracture line* 1.2911 0.0328 
Modified Goodman yield line* 0.7491 0.0190 
Soderberg line 1.2983 0.0330 

Gerber line 1.2696 0.0322 

Quadratic line 1.2691 0.0322 

Kececioglu line (with b= 1 .5Y 1 .2693 0.0322 

*If the user subscribes to the Modified Goodman 
theory, the largest dimension of the two Good- 
man solutions must be selected. 
^This is an arbitrary choice of exponent used for 
this example only. 



Normally, all these analyses are not carried out. 
Only the analysis that corresponds to the user's 
selected theory is computed. But the program pro- 
vides the capability to redesign the component 
using other fatigue failure theories in order that 
the user can choose among alternatives . 

From the results listed in the table, the smallest 
dimension is obtained by modified Goodman yield 
line. This result is not correct for a fatigue design 
because the modified Goodman theory demands that 
one considers the yield line and the fracture line. 
Thus, the largest dimension of the two Goodman 
solutions must be selected. The most conservative 
solution is obtained using Soderberg line. This is 
not always true. It depends upon the location of the 
load line. In this example, the solutions from modi- 
fied Goodman line, Soderberg line, Gerber line, 
Quadratic line, and Kececioglu line are quite close. 
This is true only for this particular example because 
of the load line. Other examples may give more 
significant differences between these theories. 



36 



Tekniques 
Vol. 5 No. 2 



ABSTRACT #: 51/00-6125/0 

Title: 4050/468 

^^ Author: Craig Bulmer 
( ) Tektronix, Inc. 

Chicago, IL 
Memory Requirement: 32K 
Peripherals: Tektronix 468 Oscilloscope 

Optional: 4662/3 Plotter 
Files: 1 Binary Program 
Statements: 463 

This program will take waveforms from 
the 468 Oscilloscope and display the 
waveforms on the 4050 screen; with 
printed header information of Channel 1 , 
2 and/or Add; Volts/Div; Time/Div; Trig- 
ger Point; Max Volts; and Min Volts. 
Waveforms can be saved to tape and re- 
displayed from tape. Output to either 
screen or plotter with reference scope 
grid. Waveforms displayed from tape are 
displayed as dots. 



COUPLING DC DC 
TIME/DIU 208.08 US 288.08 US 
UOLTS/DIU 1.00 U 5.00 W 
TRIGGER PT. 1.79 MS 1.79 MS 
MAX UOLTS 4.880 U 30.800 MU 
HIN UOLTS 3.969 U 28.288 MU 
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ABSTRACT #i 51/00-8015/1 

Title: Flow Diagrammer 

Author: Keith S. Reid-Green 

Education Testing Service 
Princeton, NJ 
^ Modified by: L.C. Sheppard 

Sheppard Software 
Company 
Sunnyvale, CA 
Memory Requirement: Tape — 16K; 

Disk — 32K 
Peripherals: 4662 Plotter 

Optional — 4907 

File Manager 

Statements: Tape — 917 
Disk — 911 
Files: Tape — 5 ASCII Program 

Requires 62 dedicated files 
Disk — 1 Program 

Flow Diagrammer was modified to run 
on disk with room for 2Q0 diagrams per 
disk. The tape version will remain the 
same (see the abstract in the 4050 Appli- 
cations Library Program Catalog). The 
modification for disk are detailed below: 

A diskette for data storage is required. 

The five programs were combined into 
one for operational speed. 

Any disk unit can be used for the data 
disk. 3 disk files replace 57 tape files. 

J The maximum amount of "box data" 
was doubled to 2000 characters. 



The program will let you set the 4907 
clock. It will also format the disk, if re- 
quired, and create and format the data 
files on the disk. 



Several changes were made in the pro- 
gram flow and data storage for increased 
speed and smoothness. 



FLOW DIAGRAMMER: PHASE 1 



INITIALIZE 
t SET KEYS 
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ABSTRACT #: 51/00-8018/1 

Title: ^FORMAT 

Author: Bruce Clarkson 

Science Applications, Inc. 
Raleigh, NC 
Revised by: John R. Carter, Sr. 
Tektronix, Inc. 
Santa Clara, CA 
Memory Requirement: 16K 
Peripherals: 4051R06 Text Editor ROM 
or 

A.L. Program #52/07-8047/0 
Printer 

Optional— 4907 File 
Manager 
4924 Tape Drive 
Files: 1 ASCII 
Statements: 390 

^FORMAT provides formatted text out- 
put similar to the University of 
Waterloo's SCRIPT program for the Sys- 



tem/360. Commands are imbedded in the 
source text file at the time of creation — 
typically with the TEKTRONIX Editor 
ROM or with Applications Library pro- 
gram ^EDIT.DOS (abstract #52/07- 
8047/0). 

^FORMAT prompts for additional par- 
ameters relative to the page layout at ex- 
ecution time. The commands in the 
source file combined with these parame- 
ters give control over the format of the 
printed document. 

Options include: 

right margin justification (padding with 

blanks) 

page size 

page numbering 

indentation 

spacing 

centering 

and other refinements 



The modifications to the original (Text 
Formatting) allow input from a 4907 File 
Manager in ASCII or Binary, and text 
file creation using ^EDIT.DOS. Output 
may be to any peripheral or device, in- /" 
eluding the 4050 screen. 



ABSTRACT #: 52/07-8047/0 

Title: ^EDIT.DOS 

Author: John Carter 

Tektronix, Inc. 

Santa Clara, CA 
Memory Requirement: 64K 
Peripherals: Optional — 4907 File 
Manager 

— 4924 Tape Drive 

— 4641 Printer 
Files: 8 Binary Program 

2 Binary Data 

Requires dedicated tape or disk. 
Statements: 1415 

8,000 bytes binary data 

^EDIT.DOS is a 4907 disk oriented 
screen editor for the 4052/54. However it 
may be used with cartridge tape. It cre- 
ates free style, line oriented text enabling 
you to produce reports, manuscripts, 
form letters and so on. Its features are: 

1 . Two edit buffers for manipulating 
lines of text. 

2. Complete INPUT and OUTPUT file 
handling for extra long text. 

3. Fast and easy movement of the line 
pointer and character pointer back 
and forth through the text. 

4. FIND and AGAIN which locates 
any string of characters in a 
line. 

5. Five ways to do a REPLACE func- 
tion. 

6. Panic abort from long processes. 

7. Single letter command entry. 

8. Multiple commands per line of input 



plus REPEAT. 

9. STATUS report on current editor 
environment. 

10. LIST to any peripheral or device 
with or without line reference num- 
bers. 

1 1 . Exit from program without disturb- 
ing open files or contents of buffers. 
Recover to ^EDIT.DOS prompt. 

12. Write over or append to the output 
file. 

The ^EDIT.DOS commands are: 

A-gain I-nsert R-eplace 

B-ottom K-ill S-ave 

C-lear L-ist T-ag 

D-own M-acro T-op 

F-ind O-ld U-p 

G-et P-ut V-erify 

H-elp Q-uit X-change 

Two special commands, "<" and ">", 

move the character pointer left or right 



through the current line. Another feature 
uses the vertical bar, "|", for repeating 
EDIT comands. 

In addition to the keyboard commands 
there are 10 defined function keys for 
STATUS, RECOVERY, VERIFY 
ON/OFF, MERGE LINES, SPLIT/ 
LINES, PANIC STOP, RULER, 
CHANGE EDIT DELIMITER, RE- 
PEAT LAST EDIT COMMAND, and 
OLD "^FORMAT". 

A complete HELP message file is includ- 
ed and should be sufficient for using the 
program at 95% efficiency on the first try. 

Program 51/00-8018/0 has been modified 
to run with ^ EDIT. DOS to format and 
justify the edited text. It is available 
through the AppHcations Library. 



*TnL15 

ELEfi2;eliN78;ejusy;ET0P9; 
t 

> r.ELEF12;ELIN78;EJUSY;ET0P9! 
2:*EDIT.D0S 

3:EL12;EI0;6 APRIL, 1981EA48;64K (4052/4654 only) 
4:E114;Ea60;<An optional) 

5:Eb;E10jJohn R. Carter, Sr. Ea48;4907, 4924, 4641, Option 1. 
6:EA0jE120|Ei jThis progran creates free style, line oriented text. 
7:There are twenty-four EDIT conriands that enable the user to genera 

te reports, 
3:nanu5cripts, forn letters, or whatever. 
9:E5jEijA coHpanion fornatter progran, $FORMAT.DOS, uses connands in 

bedded in 
18: the text for progrannable page layout and text fornatting, 
ll:E5jEiJThe key features of this progran are the double buffers for 

easy 
12: text Manipulation, the direct access help messages for friendly us 

ej and the flexible 
13: use of riany of the EDIT connands, to nane just a few. 
14:Es;EijThis progran requires a 4052 or 4054 with 64K of nenory. 
15:A 4907 disc drive is optional. 



This text was created by $EDIT.DOS. Later $FORMAT.DOS. was used to produce the output. 

The asterisk is the EDIT prompt. T moves the pointer to the top. LI 5 says to list 15 lines. The "up 

arrow" shows where the current character point is and the > shows the location of the line pointer. 
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ABSTRACT #: 51/07-8048/0 

Title: Disk-to-Tape Back/Restore Utilities 

^ Author: John H. Grant 

Tektronix, Inc. 

Seattle, WA 
Memory Requirement: 32K 
Peripherals: 4907 File Manager 
Files: 8 
Statements: 

These utilities allow a user of a 
4050/4907 system to archive his disk files 
onto tape. Specific capability of the utili- 
ties include: 

All file types supported by the 4907 File 
Manager may be archived and restored. 

Multiple volume backups are supported, 
i.e., in the event that the information on 
the disk exceeds the capacity of a single 
tape, more than one tape will be used. 

Directory editing for total backups is 
supported: files may be omitted from the 
backup process and file names which re- 
quire passwords may (must) be modified 
to include the password. 

Selective backups and restores are also 
supported. 

Automatic hard copies of the archived 
and restored file names may be generat- 
ed. 

The disk-to-disk backup/recovery pro- 
grams were designed specifically for ow- 
ners of a single-drive 4907 who need to 
backup information from their disks. 

However, it may also be used in multi- 
ple-drive configurations. 

The disk-to-tape backup/restore utility 
programs are distributed to customers as 
eight tape files. The first of these is a 
program to transfer the remaining pro- 
grams onto disk. 



Enter the ut^it nuMber of the disk drive — 1 

Do you want to backup or restore a disk (B/R>? B 

Selective or total (S''T)? T 

Insert the disk you would like to backup in drive 1 
and press RETURN: 

Insert your disk backup tape (WARNING: any data on 
your tape will be destroyed). When you arc ready 
to continue, press RETURN: 

Do you need to edit the directory (Y/U)? Y 

The following functions are available! 

1 Directory listing 

2 Directory listing interrupt 

3 Delete directory i ten 

4 Modify directory i ten 

5 Edit conplcte 

Plcosc nake your selection via the user definable keys. 
^DIRECTORY 

LIB1/PR0G2 

LIB1/LIB2/PR0G3 

LIB1/LIB2/LIB3/PR0G4 

LIB1/LIB2/LIB3/LIB4/PR0G5 

SYSLIB/BACKUP 

SYSLIB/BACKUP.BBl 

SYSLIB/BACKUP. B92 

SYSLIB/BACKUP. B83 

SYSLIB/BACKUP. RBI 

SYSLIB/BACKUP. R82 

SYSLIB/BACKUP. R03 

SCRATCHLIB/ASCRAN 

SCRATCHLIB/PROGl 

SCRATCHLIB/RESTRICTED 

SCRATCHLIB/PROG. TEST 

SCRATCHLIB/BINSEQl 

SCRATCHLIB/BIHSEQ 

SCRATCHLIB/BIHRANl 

SCRATCHLIB/BINRAN 

SCRATCHLIB/ASCSEQl 

SCRATCHLIB/ASCSEQ 

SCRATCHLIB/ASCRANl 

Please Make your selection via the user definable keys. 
^DELETE 

<To terninatc DELETE node, press RETURN when pronptcd for iten.) 

Which iten? PROG 

You want to delete LIB1/PR0G2 <Y/U)? N 

You want to delete LIB1/LIB2/PR0G3 CY/U)? N 

You want to delete LIB1/LIB2/LIB3/PR0G4 <Y/bl>? N 

You want to delete LIB1/LIB2/LIB3/LIB4/PR0G5 <Y/b)? H 

You want to delete SCRATCHLIB/PROGl <Y/b>? N 

You want to delete SCRATCHLIB/PROG. TEST <Y/a>? N 

**tPROG not found*** 
Which itcM? PROGl 
You want to delete SCRATCHLIB/PROGl <Y/bl>? Y 

***DELETED*** 
Which iten? 

Please nake your selection via the user definable keys, 
tMODIFY 

(To terMinate MODIFY node, press RETURN when prompted for iten.) 

Which iten? RESTRICTED 

You want to Modify SCRATCHLIB/RESTRICTED (Y/tl)? Y 

Enter the correct nane: SCRATCHLIB/RESTRICTED:PASSWORD 

***MODIFIED*** 
Which iten? 

Archived files — 

eLIBl/PR0G2 

eLIBl/LIB2/PR0G3 

eLIBl/LIB2/LIB3/PR0G4 

eLIBl/LIB2/LIB3/LlB4/PR0G5 

eSYSLIB/BACKUP 

eSYSLIB/BACKUP.Bei 

eSYSLIB/BACKUP.B82 

eSYSLIB/BACKUP.B83 

eSYSLIB/BACKUP.RBl 

eSYSLIB/BACKUP.R82 

§SYSLIB/BACKUP.R83 

eSCRATCHLIB/ASCRAN 

eSCRATCHLIB/RESTRICTED: PASSWORD 

eSCRATCHLIB/PROG. TEST 

eSCRATCHLIB/BINSEQl 

The end of the tape ha« been reached. Please insert 
another tape and press RETURN to continue: 
esCRATCHLIB/BINSEQ 
eSCRATCHLIB/BINRANl 

The end of the tape has been reached. Please insert 

another tape and press RETURN to continue: 

eSCRATCHLIB/BINRAN 

eSCRATCHLIB/ASCSEQl 

eSCRATCHLIB/ASCSEQ 

The end of the tape has been reached. Please insert 
another tape and press RETURN to continue: 
eSCRATCHLIB/ASCRANl 

Disk backup completed. 
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